Witam
Więc tak napisałem sobie takie funkcje:
// konwertuje String > Bool
function SprUst(JakieUstawienie : String) : Boolean;
begin
if JakieUstawienie = 'Wl' then Result := True;
if JakieUstawienie = 'Wyl' then Result := False;
end;
// konwertuje Bool > String
function KonwUst(JakieUstawienie : Boolean) : String;
begin
if JakieUstawienie = True then Result := 'Wl';
if JakieUstawienie = False then Result := 'Wyl';
end;
No i niestety gdy chcę użyć funkcji konwertującej String > Bool w takim kodzie:
TrybBezpieczny.Checked := SprUst(INI.ReadString('Bezpieczenstwo', 'TrybBezpieczny', False));
To wyskakuje mi error:
[DCC Error] okno_glowne.pas(123): E2010 Incompatible types: 'string' and 'Boolean'
Sprawdziłem również na KonwUst (oczywiście nie specjalnie, pisząc kod po prostu pomyliłem funkcję) i też nie działa. Jakieś pomysły? Bo sprawdzałem na ShowMessage i wszystko działało...
var
zmiennabool : Boolean;
zmiennastring : String;
begin
zmiennabool := True;
if KonwUst(zmiennabool) = 'Wl' then ShowMessage('Dziala KonwUst');
zmiennastring := 'Wyl';
if sprust(zmiennastring) = False then ShowMessage('Dziala SprUst');
end;