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'))