Как правильно вставить кусок кода?
Всем привет. У меня достаточно глупый вопрос)) как правильно вставить этот код:
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; и еще проверь в основном коде чтоб функция шла перед основным кодом, и были закрыты все условные операторы, и стояли ";" |
Часовой пояс GMT +4, время: 04:14. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot