Problem mit Schleife

**Fridolin**

Guten Morgen,

ich habe ein Problem mit folgender Schleife. Also, zuerst prüfe ich wieviele Einträge in meiner listbox stehen.
Danach setze ich die länge für mein Array fest und zuletzt möchte ich das dem Array in der Schleife die Namen der Einträge aus der Listbox zugewiesen werden. Aus irgendeinem Grund, kommt eine Exception mit der Meldung Zugriffsverletzung...
Was ich besonders seltsam finde ist, dass es manchmal (in 5% der Fälle) funktioniert. Das weiß ich weil ich es schon ein paar mal getestet hab weil ich der Meinung war das der Code so funktionieren müsste...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TTA_Daten_HinzuDLG.Button3Click(Sender: TObject);

var dstnum,y,i,sch:integer;

dstlistar:array of string;

begin

 dstnum:=dstlist.Items.Count;

 setlength(dstlistar,dstnum);

 y:=1;

 sch:=0;

 for i:=1 to dstnum do begin

   dstlistar[y]:=dstlist.Items.Strings[sch];

   y:=y + 1;

   sch:=sch + 1;

 end;

label3.Caption:=dstlistar[1];

end;

MfG
Fridolin

Problem mit Schleife

Problem mit Schleife

Forumregeln