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

Не получается записать в файл переменные разного типа.   Найти похожие ветки 

← →
Геннадий   (2002-10-14 11:58) [0]

Уважаемые Мастера помогите пожалуйства правильно сформировать процедуру записи в файл, чтобы программа могла записывать в файл переменные разного типа. В моей процедуре Делфи выдает ошибку:
rocedure TForm1.Button1Click(Sender: TObject);
type TData=Record
B1:Integer;
B2:integer;
B3:String[5];
end;
var inFile:File of TData;
var Data:TData;

begin
Data.B1:=34;
Data.B2:=40;
Data.B3:="LLL";
AssignFile(inFile, "E:\test\testr.dat");
ReWrite(inFile);
try
Write(inFile, Data.B1, Data.B2,Data.B3);
finally
CloseFile(inFile);
end;

end;

end.

---

← →
Виктор Щербаков ©   (2002-10-14 12:03) [1]

Тебе переменную Data надо в файл записать?
Тогда просто Write(inFile, Data);

---

← →
Zemal ©   (2002-10-14 12:06) [2]

Что за ошибка? Напиши подробнее... кстати, ненадо так:
Write(inFile, Data.B1, Data.B2,Data.B3)
Попробуй так:
Write(inFile, Data)

---

← →
Zemal ©   (2002-10-14 12:07) [3]

>>Виктор Щербаков
гы-гы :) перехлестнулись :)

---

← →
Zemal ©   (2002-10-14 12:14) [4]

>>Геннадий
Тыже описал, что у тебя файл состоит из записей, а пихаешь туда что непопадя... какие-то цифры, строки... имей же совесть!!! Сказал, что структуры будешь пихать - так и пихай структуры, а если читать будешь, то и читай в переменные тогоже типа, т.е. структуру :).
Не храни визитки в партмоне и не пихай деньги в визитницу :)... и всё в жизни будет нормально :). Удачи!

---

← →
roadster   (2002-10-15 14:00) [5]

и вообще не record- а packed record и не write, а blockwrite

---

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

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



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