Frage zur Funktion Explode

[fkerber]

Hi!

So sollte es gehen:

Delphi-Quellcode:

Procedure TForm1.einlesen();
Var
zeile:String;
zwischenarray: TStringDynarray;
Begin
assignfile(db,dbfile);
reset(db);
While not eof(db) do
Begin
setlength(DVD.titel, zaehler+2);         <-- HIER
readln(db,Zeile);
setlength(zwischenarray, 4);
zwischenarray:=explode(',',Zeile);
showmessage(zwischenarray[1]);
DVD.Titel[zaehler]:=zwischenarray[1];
zaehler:=zaehler+1;
end;
///Arraygröße neu setzen/////////
setlength(DVD.Nummer,zaehler);
//setlength(DVD.Titel,zaehler);
setlength(DVD.FSK,zaehler);
setlength(DVD.zusatz,zaehler);


/////////////////////////////////
closefile(db);
Label1.Caption:='Datensatz : 0 - ' + inttostr(zaehler);
End;
/////////////////////////////////////////////////////////////