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...
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