Hm, ich schlage vor es umfangreicher zu machen (Sorry so bin ich
)
Du brauchst: ein Edit(Edit1), darüber eine ListBox(ListBox1), neben dem Edit einen button(Button1), aufschrift "Add!"
Ein weiteres Edit-Feld (edit2) für die Anzahl der rauszusuchenden Lieder, eine weitere ListBox (ListBox2) und einen zweiten Button (Button2)(Aufschrift 'Generieren')
Delphi-Quellcode:
procedure TFormX.FormCreate;(Sender: TObject);
begin
randomize;
end;
procedure TFormX.Button1Click(Sender: TObjct);
begin
if Edit1.Text<>'' then
begin
ListBox1.Items.Add(Edit1.Text);
Edit1.text:='';
end;
end;
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;
Alle Codes Ohne Gewähr