ch will nun in dem bereich (unten) überprüfen ob das zufällig ausgewählte Item gleich dem anderen zufällig ausgewähltem item ist.
Jeweils aus listbox1
Wie bau ich das da ein weiß gerade nicht wie ich anfangen soll?
Delphi-Quellcode:
If Checkbox2.Checked
Then begin
if meh >= 80
then begin
If RadioButton1.Checked
Then begin
If (mmh <= 100) and (mmh >25)
Then begin
label17.Caption:='Wer muss Trinken? ' + [color=#ff005f]listbox1.Items[random(listbox1.items.count)]+' und '+listbox1.Items[random(listbox1.items.count)]+[/color]' müssen ' + listbox4.Items[random(listbox4.Items.Count)]+ ' ' + listbox2.items[random(listbox2.Items.Count)]+ ' trinken !'
end
else begin
label17.Caption:='Wer muss Trinken? ' + [color=#ff007f]listbox1.Items[random(listbox1.items.count)]+' und '+listbox1.Items[random(listbox1.items.count)]+[/color]' müssen einen Kurzen ' + listbox3.items[random(listbox3.Items.Count)]+ ' trinken !';
end;
end;