在Pascal中读取.dat文件

时间:2014-10-12 09:04:46

标签: delphi listbox record pascal lazarus

我目前有另一个程序,它以记录的形式将一小组信息保存到.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;

感谢您的帮助。

0 个答案:

没有答案