BooleanToString und StringToBoolean

[Valle]

Ich hätte es so gemacht:

Delphi-Quellcode:

Function S2B(S:String):BOOLEAN; 
begin 
if STRUPPER(PCHAR(S)) = 'TRUE' then 
Result := TRUE 
else if STRUPPER(PCHAR(S)) = 'FALSE' then
Result := FALSE else
{ Fehlerroutine }
end;

Aber warum erstellst du die Funktionen, die gibt's doch schon!?