Cześć, mam funkcje:
function WinToIso(S: String): String;
var i: Integer;
begin
for i := 1 to Length(S) do // WIN -> ISO
case S[i] of
Chr(165): S[i] := Chr(161);
Chr(140): S[i] := Chr(166);
Chr(143): S[i] := Chr(172);
Chr(185): S[i] := Chr(177);
Chr(156): S[i] := Chr(182);
Chr(159): S[i] := Chr(188);
end;
Result := S;
end;
Jak połączyć ją z SynMemo na aktywnej zakłądce ?