Скачать: CL | DM;

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]

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

---

← →
Amoeba ©   (2004-04-05 17:53) [4]

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

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

---

← →
Ega23 ©   (2004-04-05 18:03) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c