Registriert seit: 19. Sep 2006
581 Beiträge
Delphi 2007 Professional
|
Re: If Abfrage
9. Sep 2009, 12:19
Versuchs ungefähr so:
Delphi-Quellcode:
procedure TZahlen.get_Punkte(const Punkte: Integer);
begin
FPunkte := Punkte;
end;
function TZahlen.vergleichen: string;
begin
if (FSpielerZahl1 = FComputerZahl1) or (FSpielerZahl2 = FComputerZahl2) or (FSpielerZahl3 = FComputerZahl3) then
begin
if FSpielerZahl1 = FComputerZahl1 then
begin
FPunkte := FPunkte + 1;
Result := 'Sie haben gewonnen!'
end;
if FSpielerZahl2 = FComputerZahl2 then
begin
FPunkte := FPunkte + 1;
Result := 'Sie haben gewonnen!'
end;
if FSpielerZahl3 = FComputerZahl3 then
begin
FPunkte := FPunkte + 1;
Result := 'Sie haben gewonnen!'
end;
end
else
begin
Result := 'Sie haben verloren!'
end;
end;
|
|
Zitat
|