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;
So ungefähr mach ich es immer. Die müssten eigentlich beide ohne Probleme funktionieren
EDIT: Obwohl man sich die zweite if-Zeile auch sparen kann...
Gruß
Neutral General