Hey, stehe auf dem Schlauch. wo ist der Fehler?
Delphi-Quellcode:
procedure TForm1.FillList;
var
i:Integer;
begin
for i:=0 to sizeof(datei) do begin
Seek(datei, i);
Read(datei, data);
ListView1.Items.Add;
ListView1.Items[i].Caption:=data.Name;
with ListView1.Items[i].SubItems do begin
Add(data.Format);
Add(data.Sprache);
end;
end;
end;
Initialisiert wird so:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
AssignFile(datei, 'index.dat');
IF FileExists('index.dat') THEN Reset(datei)
else Rewrite(datei);
filllist;
end;
Fehlermeldung: Versuch hinter dem Dateieinde zu lesen. Könnte ja einen try-except Block einbauen, aber das ist nicht so die feine Art...
Bitte somit jämmerlich um Hilfe!
