MJFunctions - kleine Funktionssammlung

[xZise]

Gibt es eigentlich die Funktion BoolanToString? Ich habe mir mal eine erweiterte Variante programmiert:

Delphi-Quellcode:

function BoolanToString(ABool : Boolean; ATrue, AFalse : string) : string
begin
  case ABool of
    true : Result := ATrue;
    false : Result := AFalse;
  end; 
end;

Beispiel:
Showmessage(BoolanToString(saved, 'Gespeichert', 'Nicht gespeichert'))