BooleanToString und StringToBoolean

[Neutral General]

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