TBooleanHelper

[Willie1]

Zitat von himitsu:

Erstmal: NIEMALS die Default aus diesen Variablen löschen, sondern Deines nur anhängen.
Jedes BoolToStr, StrToBool, Boolean.ToString usw. verwendet Dieses.

Ich habe verstanden. Aber wo soll ich das anhängen? Tue/FalseBoolStrs sind zu Beginn doch leer.

Delphi-Quellcode:

const
  cBoolStr: array[Boolean] of string = ['aus', 'an'];

Uwe Raabe, Globale Konstante: an diese Möglichkeit hatte ich gedacht aber ich wollte die Helferlein benutzen. Aber so könnte ich das Brett an der dünnsten Stelle bohren. Trotzdem effektiv!
Willie.

[Uwe Raabe]

Zitat von Willie1:

Tue/FalseBoolStrs sind zu Beginn doch leer.

Wenn sie leer sind, werden sie mit dem ersten Aufruf von BoolToStr oder TryStrToBool initialisiert (siehe VerifyBoolStrArray in System.SysUtils).

[Willie1]

Das bedeutet, mit SetLength(True/FalseBoolStrs, 0) setze ich wieder auf die Defaultwerte zurück? Wi.

[Uwe Raabe]

Zitat von Willie1:

Das bedeutet, mit SetLength(True/FalseBoolStrs, 0) setze ich wieder auf die Defaultwerte zurück? Wi.

Genau.

[himitsu]

oder FalseBoolStrs := nil; , was auch einem SetLength 0 entspricht.

[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.

[himitsu]

Klar ginge es (meistens)

* spaßig wird es bei MultiThread, den diese Zugriffe sind nicht thread-save

* und warum die globalen variablen umschreiben, anschließend wieder löschen, wodurch sie von anderen wieder neu initialisiert werden müssen,
anstatt direkt nur was Eigenes zu nehmen?

Anstatt die globalen Variablen zu ändern, kannst auch nur deine Lokalen anpassen, wenn leer.

Delphi-Quellcode:

// zuerst B und dann die Strings

function BoolToStrs(B: Boolean; const FalseStr, TrueStr: string): string;
begin
  //VerifyBoolStrArray;  // ich geh jetzt einfach mal davon aus das ist schon initialisert, vorallem da man von außen VerifyBoolStrArray nicht aufrufen kann
  if B then
    if TrueStr <> '' then
      Result := TrueStr
    else
      Result := TrueBoolStrs[0]
  else
    if FalseStr <> '' then
      Result := FalseStr
    else
      Result := FalseBoolStrs[0];
end;

function BoolToStrs(B: Boolean; const FalseStr, TrueStr: string): string;
begin
  //VerifyBoolStrArray;
  if B then
    Result := IfThen(TrueStr <> '', TrueStr, TrueBoolStrs[0])  // Result := Coalesce(TrueStr, TrueBoolStrs[0])
  else
    Result := IfThen(FalseStr <> '', FalseStr, FalseBoolStrs[0]);  // Result := Coalesce(FalseStr, FalseBoolStrs[0]);

  //Result := IfThen(B, IfThen(TrueStr <> '', TrueStr, TrueBoolStrs[0]), IfThen(FalseStr <> '', FalseStr, FalseBoolStrs[0]));
  //Result := IfThen(B, Coalesce(TrueStr, TrueBoolStrs[0]), Coalesce(FalseStr, FalseBoolStrs[0]));
end;
// soein Coalesce, wie man es aus Datenbanken kenn, hatte ich mir für String/Integer einfach mal nachgebaut

// zuerst die Strings und dann B

function BoolToStrs(B: Boolean; FalseStr, TrueStr: string): string;
begin
  //VerifyBoolStrArray;
  if TrueStr = '' then TrueStr := TrueBoolStrs[0];
  if FalseStr = '' then FalseStr := FalseBoolStrs[0];
  if B then Result := TrueStr else Result := FalseStr;
end;

bzw. BoolToStr oder ToString anstatt TrueBoolStrs/FalseBoolStrs

Delphi-Quellcode:

function BoolToStrs(B: Boolean; const FalseStr, TrueStr: string): string;
begin
  if B and (TrueStr <> '') then
    Result := TrueStr
  else
  if not B and (FalseStr <> '') then
    Result := FalseStr
  else
    Result := B.ToString(TUseBoolStrs.true);  // Result := BoolToStr(B, True);
end;

Und wer sich TUseBoolStrs.True ausgedacht hat, gehört ausgepeitscht.