Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
ВнизНе получается записать в файл переменные разного типа. Найти похожие ветки
← →
Геннадий (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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c