Einzelnen Beitrag anzeigen

Benutzerbild von inherited
inherited

Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: problem mit Zeilenumbruch bzw Ausgabe

  Alt 8. Aug 2006, 01:25
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
Nikolai Wyderka

SWIM SWIM HUNGRY!
Neuer Blog: hier!
  Mit Zitat antworten Zitat