BooleanToString und StringToBoolean

[Go2EITS]

Hallo DP,

ich habe mal zur Diskussion zwei Routinen, die ich hier mal reinstelle.

Delphi-Quellcode:

//Boolean2String
Function B2S(B:Boolean):String;
begin
if B=True then Result:='TRUE' else Result:='FALSE'
end;

//StringToBoolean: S muss 'TRUE' oder 'FALSE' sein!
Function S2B(S:String):BOOLEAN;
begin
if STRUPPER(PCHAR(S))='TRUE' then Result:=TRUE else Result:=FALSE;
end;

Es wird hier ein Boolean übergeben; es wird ein entsprechender String zurückgegeben.
Function B2S(B:Boolean):String;

Hier wird ein String übergegen; man bekommt ein Boolean zurück.
Function S2B(S:String):BOOLEAN;

Gerade letzte Routine birgt Gefahren: Leerer String, nicht getrimmter String etc.

Wie würdet es Ihr es elegant und sicher lösen? Bin gespannt...

Go2EITS