@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