Delphi Wie varriert man die Ausgabe von Texten? - Vorsicht Newbie

Thema durchsuchen

Ansicht

Themen-Optionen

Wie varriert man die Ausgabe von Texten? - Vorsicht Newbie

Ein Thema von TDO · begonnen am 12. Apr 2003 · letzter Beitrag vom 13. Apr 2003

Vorheriger Beitrag

Nächster Beitrag

flomei

Registriert seit: 17. Jan 2003
Ort: Schieder-Schwalenberg
2.094 Beiträge

Delphi 2005 Personal

12. Apr 2003, 23:12

Zitat von theomega:

Der Code muß nicht funktionieren...

Funktioniert aber:

zusammenfalten · markieren

Delphi-Quellcode:

			var 

   i: integer;

procedure Tmainfrm.checkanswer(Sender: TObject);

begin

  Randomize;

  i:=random(2)+1;

if

  i=1

then

  Label1.Caption:= 'Leider falsch!'

else

if

  i=2

then

  Label1.Caption:= 'Das war nicht richtig!'

else

if

  i=3

then

  Label1.Caption:= 'Du hast leider einen Fehler gemacht!';

end;