problem bei checkbox und bedingungen?ausführung falsch

[Sharky]

Hai delphineuling88,

wie der Unwissende schon sagte solltest Du als erstes einmal einen gutlesbaren Codestyle verwenden. Dadurch wirst Du Fehler viel schneller finden und dein Programm bleibt auch wartbar.

Ausserdem würde ich nicht immer wieder die Text für das Label in einer Zeile setzen. Wenn Du das ganze auf Teilstrings (ts) aufteilst und dann ganz zumm schluss die Caption des Labels setzt ist das alles viel schlanker.

Eine mögliche Lösung wäre zum Beispiel so:

Delphi-Quellcode:

var mmh, meh, a: integer;
  ts1: string;
  ts2: string;
  ts3: string;
  ts4: string;
  ts5: string;
begin
  meh := Random(100) + 1;
  mmh := Random(100) + 1;
  a := Random(100) + 1;
  ts1 := 'Alle ';
  ts2 := 'müssen ';
  ts3 := '';
  ts4 := '';
  ts5 := ' tinken!';
  if (checkbox1.Checked) and (a >= 90) then
  begin
    if RadioButton1.Checked Then
    begin
      if (mmh <= 100) and (mmh > 25) then
      begin
        ts4 := listbox4.Items[random(listbox4.Items.Count)];
        ts5 := listbox2.items[random(listbox2.Items.Count)];
      end
      else
      begin
        ts2 := 'müssen einen Kurzen ';
        ts3 := listbox3.items[random(listbox3.Items.Count)];
      end
    end;
  end;

  label17.Caption:= 'Wer muss Trinken? ' ts1 + ts2 + ts3 + ts4 + ts5;