Zitat von
Maik:
procedure Zahlenvergleich;
begin
If Lottozahl1=Zahlwert1, Lottozahl2=Zahlwert2, Lottozahl3=Zahlwert3,
Lottozahl4=Zahlwert4, Lottozahl5=Zahlwert5, Lottozahl6=Zahlwert6 then ShowMessage('Gewonnen!!! Sie haben 6 Richtige');
end;
Delphi-Quellcode:
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 [Delphi]-Tag:
Zitat:
[delphi]Der QuellCode[/delphi]