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