If Abfrage

[XXcD]

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;