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 ?
W sensie?
Możesz podpiąć się pod zdarzenie OnKeyPress.
chodzi mi, żeby automatycznie podpiąć to pod SynMemo
Podepnij się pod zdarzenie OnKeyPress i modyfikuj każdy naciskany klawisz.
ale będziesz miał krzaki na ekranie
lepiej wywołuj tę funkcję tylko przy zapisywaniu i odwrotną do niej przy odczytywaniu
a najlepiej jakbyś po prostu znalazł komponent gdzie możesz ustalić kodowanie
tak i robić cały program od nowa z nowym komponentem ?
Spróbuje z tym OnKeyPres
Dokładnie ja bym zrobił tak jak napisał Użytkownik @unikalna_nazwa, a temat przenoszę do Newbie, ponieważ dotyczy podstaw.
Dalej nie działa prawidłowo, gdy wpisuje np "ś" jest ok, ale gdy przesyłam je z Edit do SynMemo jest coś takiego : Treœæ a gdy wpisze jest normalne: TREŚĆ.
No bo zmieniłeś znaki w locie pewnie i dlatego tak jest. Zrób jak Ci pisaliśmy, zmieniaj kodowanie przy zapisie oraz odczycie pliku.
aha, tylko, że mi w SynMemo przy wysłaniu tekstu z Edita pokazuje Treœæ zamiast Treść a nie dopiero po zapisie i otworzeniu w przeglądarce
Ech, no bo robisz pewnie tę konwersję. Rób ją wtedy kiedy napisaliśmy. Czy taki kod również tak pokaże?
TwojEdit.Text := 'Treść';
Bo jeżeli tak to coś masz skopane z Delphi. Bez "ruszania" i "mieszania" funkcjami operującymi na kodach ASCII nie ma prawa coś takiego się zdarzyć. Sprawdziłem.