If Abfrage

[Sharky]

Hai,

warum nicht einfach die "ausnahme" als Vorgabewert?

Delphi-Quellcode:

function TZahlen.vergleichen: string;
begin
  Result := 'Sie haben verloren';
  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;