Argument außerhalb des Bereichs

[EdAdvokat]

Ich experimentiere ein wenig mit TList und habe dazu eine kurze Routine geschrieben, die zwar aufgerufen wird und die Werte auch in einer Listbox ausgibt, jedoch die Fehlermeldung
"Argument außerhalb des Bereichs" ausgibt. Ich komme einfach nicht auf die Ursache für diesen Fehler.

Delphi-Quellcode:

procedure TForm29.btn5Click(Sender: TObject);
var List: TList<Integer>;
i: int32;
begin
  List := TList<Integer>.Create; { Create List }
try
  List.Add(100); { Add Items }
  List.Add(200);
  List.Add(300);
  List.Add(400);

  for i := 0 to High(List.Items[i]) do

  Lst1.Items.Add(inttostr(List.items[i]));
 
finally
  List.Free;
end;
end;

[Der schöne Günther]

Geh doch im Debugger einfach mal mit rein und setze dir mal einen Haltepunkt auf die Zeile

Delphi-Quellcode:

Lst1.Items.Add(inttostr(List.items[i]));

.

Dann siehst du es bestimmt 😉

[EdAdvokat]

leider sehe ich das nicht, denn das habe ich bereits mehrfach versucht und auch versuchtsweise ...items[i-1] eingegeben doch ich sehe es einfach nicht.
Was muß ich verfolgen? I wird bis 4 hoch gezählt. Daraufhin habe ich versucht

Delphi-Quellcode:

for i := 0 to High(List.Items[i-1]) do

zu verwenden, aber auch das hilft nichts.
Ich finde einfach nicht die Ursache.

[Redeemer]

System.High ist nur für Arrays das, was du denkst.

[EdAdvokat]

Gebe ich

Delphi-Quellcode:

for i := 0 to 3 do

für den konkreten Fall ein, funktioniert es, doch ich wollte die ganze Sache dynamisch gestalten und nicht jedesmal den
Höchstwert der Items direkt eingeben. Gibt es dafür nicht eine bessere Lösung?

[TomyN]

Code:

  for i := 0 to High(List.Items) do

:-)

[EdAdvokat]

Delphi-Quellcode:

 for i := 0 to High(List.Items) do

das habe ich auch bereits mehrfach versucht und es get nicht, denn er will eine [] haben...

[mmw]

halllo,
eventuell so

Delphi-Quellcode:

List.Count

Gruß

[EdAdvokat]

list.count klappt auch nicht.

[mmw]

ich hab's so gemacht und es kommt keine Fehlermeldung

Delphi-Quellcode:

var List: TList<Integer>;
i: int32;
begin
  List := TList<Integer>.Create; { Create List }
try
  List.Add(100); { Add Items }
  List.Add(200);
  List.Add(300);
  List.Add(400);
   List.Add(4200);

for i := 0 to List.Count-1 do

  Lst1.Items.Add(inttostr(List.items[i]));

finally
  List.Free;
end;

Gru0