Es gibt immer wieder Situationen, in denen man einen boolschen Wert nicht in True/False bzw 0/-1 sondern in Ja/Nein übersetzen muss. Bislang bietet Delphi dafür keine passende Funktion ... bislang:
Delphi-Quellcode:
function BoolToStr(aValue: Boolean; const aYes: string = 'Yes'; const aNo: string = 'No'): string; overload;
function BoolToStr(aValue: Boolean; const aYes: string = 'Yes'; const aNo: string = 'No'): string;
begin
if aValue then
Result := aYes
else
Result := aNo
end;
Beispiele:
BoolToStr(True)
würde "Yes" zurück liefern,
BoolToStr(False, "Ja", "Nein")
würde "Nein" zurück liefern