Hi ALL! Есть проблема с типизированным файлом: есть такой код:

← →
Delphin © (2004-04-04 16:07) [0]

Проблема с типизированным файлом: есть такой код:
type
TMember=Record
Nam:String[15];
End;
var
Form1: TForm1;
Member:Tmember;
F:File of TMember;
TF:File of TMember;
N:String;
I,A:Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin

AssignFile(F,"mem.dat");
IF Not FileExists("mem.dat") Then
Rewrite(F);
Reset(F);
Seek(F,I);
I:=FilePos(F);
While Not EOF(F) Do
Read(F,TMember(Member.Nam));
Edit1.Text:=Member.Nam;
I:=FilePos(F);
end;

Всё работает хорошо, но стоит только добавить ещё одну переменную
в секцию Type, (Nam, N1:String[15];), так компилятор начинает жутко ругаться на эту строку: Read(F,TMember(Member.Nam));при попытку добавить что-то к этой строчке (чтение Member.N1) (делал так: Read(F,TMember(Member.Nam,Member.N1)); компилятор снова начинает ругаться, кто знаем, как это дело исправить ?

← →
Cobalt © (2004-04-04 16:16) [1]

Мда, полный разброд и шатания в головах молодёжи...
Эх, молодость, молодость...
Ну скажи, зачем, зачем!!! ты читаешь из файла в какую-то странную переменую, да ещё с приведением типов???
Если уж ты описал, что в файле у тебя находятся записи, то и читай записи, а не их части.

← →
BorH © (2004-04-04 16:41) [2]

Ежели уж совсем разьёжвано, то
Read(F,Member);

← →
Delphin © (2004-04-04 22:14) [3]

Всем спасибо :)

> Type
> TMember=Record
> Nam:String[15];
> End

Не слабо! На кого черта нужна запись только с одним полем? Разве недостаточно
Type
TMember=String[15];

Да и немного ты после ReWrite(F) начитаешь ....

Hi ALL! Есть проблема с типизированным файлом: есть такой код: Найти похожие ветки