Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
6. Jan 2004
:gruebel:Procedure Zahlenvergleich;
Begin
If (Lottozahl1 = Zahlwert1) and (Lottozahl2 = Zahlwert2) and (Lottozahl3 = Zahlwert3) and ( Lottozahl4 = Zahlwert4) and (Lottozahl5 = Zahlwert5) and (Lottozahl6 = Zahlwert6 Then ShowMessage('Gewonnen!!! Sie haben 6 Richtige');
End;
Ach ja, Für Quellcodes gibt es diesen netten -Tag:
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
5. Jan 2004
Ich würde mal sagen, dass Zahl auch noch deklariert werden sollte:
Var Zahl: Integer;
Begin
...
Zahl := StrtoInt(Label2.Caption);
...
End;