oder so (ungetestet):
Delphi-Quellcode:
if (FSpielerZahl1 = FComputerZahl1)
or (FSpielerZahl2 = FComputerZahl2)
or (FSpielerZahl3 = FComputerZahl3) then
begin
FPunkte := FPunkte + 1;
Result := 'Sie haben gewonnen!'
end
else
begin
Result := 'Sie haben verloren!'
end;
€: OK, sehe gerade das es mehrmals Punkte gibt, nicht nur einmal...