problem mit Zeilenumbruch bzw Ausgabe

[Stormy]

Hi,

Zitat von inherited:

Delphi-Quellcode:

procedure TFormX.Button2Click(Sender: TObject);
begin
  for i := 1 to StrToInt(Edit2.Text) do
  begin
    ListBox2.Items.Add(ListBox1.Items[random(ListBox1.Items.Count)];
  end;
end;

Da hast du wohl vergessen i als variable zu declarieren oder ist i global?
So siehts dann vollständig aus:

Delphi-Quellcode:

procedure TFormX.Button2Click(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to StrToInt(Edit2.Text) do
  begin
    ListBox2.Items.Add(ListBox1.Items[random(ListBox1.Items.Count -1)];
  end;
end;

mfG
Stormy