Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Геннадий © (2002-10-14 11:58:00)
Уважаемые Мастера помогите пожалуйства правильно сформировать процедуру записи в файл, чтобы программа могла записывать в файл переменные разного типа. В моей процедуре Делфи выдает ошибку:
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.

roadster (2002-10-15 14:00:00) [1]
и вообще не record- а packed record и не write, а blockwrite

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

Zemal (2002-10-14 12:07:00) [3]
>>Виктор Щербаков
гы-гы :) перехлестнулись :)

Zemal (2002-10-14 12:06:00) [4]
Что за ошибка? Напиши подробнее... кстати, ненадо так:
Write(inFile, Data.B1, Data.B2,Data.B3)
Попробуй так:
Write(inFile, Data)

Виктор Щербаков (2002-10-14 12:03:00) [5]
Тебе переменную Data надо в файл записать?
Тогда просто Write(inFile, Data);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »