TBooleanHelper

[Willie1]

Hallo,
ich habe mehrere Variablen vom Typ Boolean, die ich mit einem jeweils anderen Text versehen will.
FalseBoolStrs := ['Aus']; TrueBoolStrs:=['An'];
B1.ToString(TUseBoolStrs.true);
..
B2.ToString(TUseBoolStrs.true);
..
B3.ToString(TUseBoolStrs.true);
B1,B2,B3 kommen in mehreren Units vor und werden benutzt.

Meine Frage: Ich muss also jedes mal FalseBoolStr, .. neu definieren, wenn B?.ToString vorkommt? Dass FalseBoolStrs, .. ein Array sind, hilft mir hier nicht weiter?
Willie.

[jfheins]

Ich denke, du kannst dir sicher eine globale Funktion schreiben, die einen Boolean in einen string passend konvertiert. Diese dann einfach in eine utils unit und überall einbinden. Fertig

Wenn die utils unit zu groß wird, aufteilen. Aber so eine Bool => String methode ist ja einfach zu testen, klein und pur => sollte kein Problem darstellen, wenn die global ist.

[himitsu]

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

Aber am Besten du schreibst dir hierfür ein eingene Funktion, bzw. eigenen Helper,
oder wie wäre es mit IfThen(B1, 'An', 'Aus') ?

[Uwe Raabe]

Alternativ kann man auch eine globale Konstante erstellen:

Delphi-Quellcode:

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

...
  cBoolStr[B1];
  cBoolStr[B2];
  cBoolStr[B3];

Von einem Überschreiben der Standard-Arrays würde ich auch abraten. Die werden auch an anderen Stellen benutzt.

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