OK danke... Denkfehler... ich kann ja trotzdem mehrere Datensätze reinschreiben. Doch jetzt meckert er bei öffnen der Datei:
Delphi-Quellcode:
Buecher: array of buch;
procedure TForm1.datenladen; // Alle Daten aus der Datei einlesen
var I: Integer;
begin
AssignFile(Datei,speicherort); // Datei anlegen
Reset(Datei);
SetLength(Buecher,0); // Bücher zurücksetzen
i := 0;
while not Eof(Datei) do // Daten einlesen
begin
SetLength(Buecher,Length(Buecher)+1);
Readln(Datei,Buecher[i]);
Inc(i);
end;
CloseFile(Datei);
end;
Beim assign meckert er incompatible types und später beim schreiben auch.