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

← →
Геннадий (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]

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

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

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

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

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