СПС ФРЕНДЫ
1) я когда сохранял в блокноте то выбирал УТФ 8, че в программе все ровно он видит как Win? надо прописывать перекодировку?
2) если 1 верно, то но как пользоваться этой функцией?
function win2utf(s: string): string;
var len, ch, i: integer;
st: string;
begin
st:=''; len:=Length(s)-1;
for i:=0 to len do begin ch:=ord(GetChar(s,i)); if ch>122 then st:=st+chr(ch+1104) else st:=st+chr(ch); end;
win2utf:=st;
end;
|
переменная для ввода слова в
форму (
word:=// введите слово.... "я ввел
дом")
и что? как то так что ли ?
NewWord:=word(win2utf) ??
п.с. Думаю это мой финальный вопрос по этой теме))
извините нуба что отвлекаю!