ListBox Problem

[marabu]

Willkommen in der Delphi-PRAXiS.

Wenn du ListBox2 durch ListBox1 ersetzt, dann sollte zumindest der Index-Fehler verschwinden...

Freundliche Grüße vom marabu


PS: So würde es übrigens wirklich funktionieren:

Delphi-Quellcode:

var
  s: TStrings;
  sNumber: string;
begin
  Randomize;
  ListBox.Sorted := true; // zur leichteren visuellen Kontrolle
  s := ListBox.Items;
  s.Clear;
  repeat
    sNumber := IntToStr(Succ(Random(100)));
    if s.IndexOf(sNumber) < 0 then
      s.Add(sNumber);
  until s.Count = 10;
end;