У меня следующая проблеммка, прошу оказать содействие.
Работаю с файлом типа запись, пишу по оналогии как в среде Delphi, не работает... может правда чего и подзабыл.. но все ж..
в общем нужно записать запись в файл, а потом ее прочитать..
вот код..
Запись в файл
type rec = record
name : string;
tel : string;
misc : string;
end;
var recs : rec;
f : file of rec;
...
with Form2 do
begin
recs.name:=trim(edit1.Text);
recs.tel:=trim(edit2.Text);
recs.misc:=trim(edit3.Text);
AssignFile(f,ExtractFilePath(Application.ExeName)+'addres.bk');
if FileExists(ExtractFilePath(Application.ExeName)+'addres.bk') then
Reset(f)
else
Rewrite(f);
write(f,recs);
CloseFile(f);
end;
А вот я пытаюсь прочитать...
type rec = record
name : string;
tel : string;
misc : string;
end;
var recs : rec;
f : file of rec;
...
assignfile(f,extractfilepath(Application.ExeName)+'addres.bk');
try
reset(f);
Seek(f,0);//System.FileSize(f));
except
ShowMessage('Ошибка открытия файла!');
end;
while not eof(f) do
begin
read(f,recs);
showmessage(recs.name);
end;
closefile(f);
ну собственно вот. При попытке прочитать выходит Project MyProject raised exception class "External:SIGFPE"
Буду очень признателен за любую помощь!
