TBooleanHelper

[Willie1]

Delphi-Quellcode:

function BoolToStrs(B: Boolean; const Falsestr, Truestr: string): string;
begin
  if (FalseStr <> '') and (Truestr <> '') then begin
    FalseBoolStrs := [Falsestr];
    TrueBoolStrs  := [Truestr];;
  end;
  Result := B.ToString(TUseBoolStrs.True);
  FalseBoolStrs := nil; //zurück auf Defaultwerte.
  TrueBoolStrs  := nil;
end;

Ich will es so machen und in einer Tool-Bibliothek ablegen. Geht das in Ordnung?
Willie.