Thema: Delphi Wer wird Millionär

Einzelnen Beitrag anzeigen

Dilip

Registriert seit: 3. Mär 2016
10 Beiträge
 
#6

AW: Wer wird Millionär

  Alt 10. Mär 2016, 16:14
An die Tag Variante hab ich auch schon gedacht
Das ist doch case ... of , oder?

Aber ich weiß nicht was ich dazwischen schreiben soll
muss ich da Button1.Click Button1 TButton1... hinschreiben? oder eine neue Variable definieren?

ich hab es mal kurz versucht und habe einfach ein Formular 1 Button und 1 Edit


procedure TForm1.Button1Click(Sender: TObject);

begin
case TButton(Sender).Tag of
1: Edit1.Text := 'Falsch';
2: Edit1.Text := 'Falsch' ;
3: Edit1.Text := 'Richtig';
end;
end;

Normalerweise müsste doch mit 1x drücken falsch, beim 2x auch falsch und beim 3x mal richtig in der Edit komponente stehen, das Programm startet auch ohne Fehlermeldung, schreibt aber nichts in die Edit

Geändert von Dilip (10. Mär 2016 um 16:25 Uhr)
  Mit Zitat antworten Zitat