Да.
Но если в нем хранить инфу из RECORD, то логично с ним работать, как с типизированным.
Типа :
Код:
//======= Запись (дополнение в конец) ========
Var
MyRec: Tinfo;
F : file of Tinfo;
Ok99 : boolean;
begin
AssignFile(F,SaveDialog1.FileName);
{$I-} Rewrite(F) {$I+};
Ok99:=(IoResult=0);
if Ok99 then begin
TRY
{$I-} write(F,MyRec) {$I+};
Ok99:=(IoResult=0);
if not Ok99 then begin
ShowMessage('Ошибка записи в файл');
end;
FINALLY
{$I-} CloseFile(F) {$I+};
Ok99:=(IoResult=0);
END;
end
else begin
ShowMessage('Ошибка открытия файла на запись');
end;
end;
//===================================
//======= Чтение записи номер 0 ========
Var
MyRec: Tinfo;
F : file of Tinfo;
Ok99 : boolean;
begin
AssignFile(F,SaveDialog1.FileName);
{$I-} Reset(F) {$I+};
Ok99:=(IoResult=0);
if Ok99 then begin
TRY
{$I-} seek(F,0) {$I+};
Ok99:=(IoResult=0);
if Ok99 then begin
{$I-} read(F,MyRec) {$I+};
Ok99:=(IoResult=0);
if not Ok99 then begin
ShowMessage('Ошибка чтения из файла');
end;
end
else begin
ShowMessage('Ошибка позиционирования в файле');
end;
FINALLY
{$I-} CloseFile(F) {$I+};
Ok99:=(IoResult=0);
END;
end
else begin
ShowMessage('Ошибка открытия файла на чтение');
end;
end;
//===================================
Это проще и надежнее.