Wie varriert man die Ausgabe von Texten? - Vorsicht Newbie

[flomei]

Zitat von theomega:

Der Code muß nicht funktionieren...

Funktioniert aber:

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;

MfG Florian