BooleanToString und StringToBoolean

[Go2EITS]

@mirage228 Uhiii peinlich, ich wusste nicht, dass es StrToBool und BoolToStr gibt. Ich hatte nach BooleanToString und StringToBoolean bzw. BooleanToStr und StrToString hier in der DP und Torry gesucht.

@Neutral General
Dein

Delphi-Quellcode:

function B2S(B: Boolean): String; 
begin 
case B of 
  true : Result := 'TRUE'; 
  false: Result := 'FALSE'; 
end; 
end; 

fucntion S2B(S: String): Boolean; 
begin 
Result := false; // falls mist übergeben wird dann false 
if UpperCase(S) = 'TRUE' then Result := true;
if UpperCase(S) = 'FALSE' then Result := false; 
end;

gefällt mir sehr gut in Ergänzung mit @Vales Lösung der Fehlerbehandlung.

@pszopp, auch gut!

Alles super Lösungen, die ich sofort durchschaut habe.

Die Lösungen von Muetze1 und Hagen sind schon anspruchsvoller: Hier muss ich schon genau
schauen, wie es funktioniert. AnsiSametext und SameText sind mir neu, und vielleicht auch anderen Usern.

Und Hagen macht den Mutze1 Code noch fehlersicher.

Herzlichen Dank an Euch. Ich habe heute viel dazugelernt!!!!

Cu!
Go2EITS