Как правильно вставить кусок кода?
Всем привет. У меня достаточно глупый вопрос)) как правильно вставить этот код:
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;
У меня пишет: unexpected token <EOF>
Можете плз написать что отсутсвует?
p.s. очень плохо знаю MP =(
|