Установил Freepascal.
Есть тема "Обработка файлов средствами Free Pascal"
Написал код
type
price = record
rub: 0..maxint;
kop: 0..99;
end;
myfile=file of price;
var
f1:myfile;
A,prise:Price;
n,i,j:integer;
const
[color=red][font=Verdana]name = '/home/noks/doc.txt';[/font][/color]
procedure min(F:string;var prise:price);
var
Z:price;
begin
prise.kop:=99;
prise.rub:=maxint;
assignfile(f1,f);
{$i-}
reset(f1);
{$i+}
if IOresult <>0 then
else
begin
while not eof(f1) do
begin
read(f1,z);
if z.rub*100+z.kop<prise.rub*100+prise.kop then
Prise:=z;
end;
end;
end;
{$IFDEF WINDOWS}{$R like.rc}{$ENDIF}
begin
if main then
clrscr;
assignfile(f1,name);
{$i-}
rewrite (f1);
{$i+}
if IOresult <>0 then
Writeln('Ñакого Ñайла неÑÑ')
else writeln('Ñайл оÑкÑÑÑ Ð´Ð»Ñ Ð·Ð°Ð¿Ð¸Ñи');
writeln('------------------------------------------------') ;
writeln('введиÑе колиÑеÑÑво Ñен: ');
Readln(n);
writeln('ÐведиÑе ÑенÑ');
For i:=1 to n do
begin
with A do
begin
write('Ð Ñблей:');
Readln(rub);
Write('Ðопейок:');
readln(kop);
write(f1,A);
end;
end;
reset(f1);
while not eof(f1) do
ва read(f1,a);
writeln(a.rub,',',a.kop)
end;
min(name,prise);
writeln('минималÑÐ½Ð°Ñ Ñена:',prise.rub,',',prise.kop);
Closefile(f1);
end.
Работает отлично. Пишет и читает.
При открытие файла cat doc.txt выводит DD�DDDD в общем кракозябры.
При попытке открыть в текстовом формате doc.txt Редактору gedit не удалось определить кодировку символов.
Возможно, вы пытаетесь открыть двоичный файл.
Выберите кодировку из меню и попробуйте ещё раз.
---------------------------------------------------------------------------------------------------------------------
Проблема вроде ясна. Файл является типизированным и потому и не открывается.
Ну можно ли его все таки открыть и посмотреть содержимое ?
Тема: [Решено]FPC- проблема при создание файла! (Прочитано 1687 раз)
