Hi!
Delphi-Quellcode:
Procedure TForm1.einlesen();
Var
zeile:
String;
zwischenarray: TStringDynArray;
Begin
assignfile(
db,dbfile);
reset(
db);
While not eof(
db)
do
Begin
readln(
db,Zeile);
zwischenarray:=explode('
,',Zeile);
DVD.Titel[zaehler]:=zwischenarray[1];
zaehler:=zaehler+1;
//ausgabe(1);
end;
Es kommen aber noch andere Fehler und dein Code sieht für mich grausam aus, nicht persönlich nehmen, aber so viele ///////////// und keine Einrückungen etc.
Er kann irgendwie die "Datenbank" bei mir nicht laden.
Ciao fkerber