BoolToStr improved

[HeikoAdams]

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