Показать сообщение отдельно
Старый 15.01.2013, 10:36   #5
Amigo888
Нуждающийся
 
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений
(для 16 пользователей)
Ответ: Как правильно вставить кусок кода?

попробуй вставь

Function StrToUtf8(s: string; ): string;
var i, c: integer; ch: char; ss: string;
begin
if (pos(s,chr(65488 ))<>-1) or (pos(s,chr(65489))<>-1) then
begin
for i:=1 to Length(s) do begin
ch:=GetChar(s,i-1); c:=ord(ch);
if c=65488 then
begin
ss:=ss+CHR(ord(GetChar(s,i))-64384);
i:=i+1;
end;
else
begin
if c=65489 then
begin
ss:=ss+chr(ord(GetChar(s,i))-64320);
i:=i+1;
end;
else ss:=ss+ch;
end;
end;
StrToUtf8:=ss;
end;
else StrToUtf8:=s;
end;

и еще проверь в основном коде чтоб функция шла перед основным кодом, и были закрыты все условные операторы, и стояли ";"
(Offline)
 
Ответить с цитированием