Hier ist ein Auszug aus dem Programm:
Delphi-Quellcode:
type
recordaufbaudef = record
Artikelnummer : string[8];
.
.
end;
.
.
var F : file of recordaufbaudef;
.
.
{$I-}
AssignFile(F, dateiname);
FileMode := 0;
Reset(F);
if IOResult=0 then
begin
zaehler:=0;
while NOT(EOF(F)) do
read(F,datensatz);
hauptfenster.ListBox1.Items.Text:=datensatz.Artikelnr;
end;
end;
CloseFile(F);
{$I+}