If Abfrage

[Luckie]

Und für den Fall, dass gar nichts zutrifft:

Delphi-Quellcode:

function TZahlen.VergleichePunkteAlt: string;
begin
  if FPunkte - FPunkte_alt = 1 then
    Result := 'Sie haben eine Zahl richtig erraten!'
  else if FPunkte - FPunkte_alt = 2 then
    Result := 'Sie haben zwei Zahlen richtig erraten!'
  else if FPunkte - FPunkte_alt = 3 then
    Result:= 'Sie haben drei Zahlen richtig erraten!'
  else
    Result := 'Verloren';
end;