Как правильно вставить кусок кода?
 

Всем привет. У меня достаточно глупый вопрос)) как правильно вставить этот код:


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 =(

Ответ: Как правильно вставить кусок кода?
 

такая ошибка unexpected token <EOF> появляется иногда совсем по непонятным причинам, даже если и в коде всё нормально, помогал такой выход: закрыть программу с проектом и снова открыть.

Ответ: Как правильно вставить кусок кода?
 

Так у тебя же основного программного блока нету, как оно работать будет?

Ответ: Как правильно вставить кусок кода?
 

мб после последнего end поставить точку?

Ответ: Как правильно вставить кусок кода?
 

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

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;

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