Registriert seit: 3. Mär 2016
10 Beiträge
|
AW: Wer wird Millionär
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)
|