我目前有另一个程序,它以记录的形式将一小组信息保存到.dat文件中。我目前正在创建另一个程序来查看此文件并将其显示在列表框中 - 但是,我似乎无法理解如何从类型(记录)文件中读取。下面是我的类型声明:
type orderrec = record
ordernumber:integer;
tablenumber:string[10];
printed:boolean;
completed:boolean;
end;
我见过很多关于如何从txt文件中读取的例子,
lst_tablenumber.items.add('../FrontHouse\ORDERS.DAT');
这是一行简单的代码,但是当它与记录一起使用时,它只会为我显示一个空白字段。
我目前的尝试看起来像这样,但我似乎到处都是错误。
procedure Tfrm_backhome.FormCreate(Sender: TObject);
begin
reset(orderrec);
while not eof(orderrec) do
begin
read(orderrec,orders);
lst_tablenumber.items.add(orders.tablenumber);
end;
closefile(orderrec);
end;
begin
assignfile(orderrec,'ORDERS.dat');
if not fileexists('ORDERS.dat') then
begin
rewrite(orderrec);
closefile(orderrec);
end;
end;
感谢您的帮助。