Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 20.11.2012, 16:52   #1
Tofler
AnyKey`щик
 
Регистрация: 27.07.2012
Сообщений: 6
Написано 0 полезных сообщений
(для 0 пользователей)
Как правильно вставить кусок кода?

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


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 =(
(Offline)
 
Ответить с цитированием
Старый 22.11.2012, 19:16   #2
S_007
Нуждающийся
 
Аватар для S_007
 
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение
(для 7 участников)
Ответ: Как правильно вставить кусок кода?

такая ошибка unexpected token <EOF> появляется иногда совсем по непонятным причинам, даже если и в коде всё нормально, помогал такой выход: закрыть программу с проектом и снова открыть.
(Offline)
 
Ответить с цитированием
Старый 23.11.2012, 06:26   #3
AVL
Разработчик
 
Регистрация: 27.01.2011
Адрес: Афипский
Сообщений: 417
Написано 100 полезных сообщений
(для 182 пользователей)
Ответ: Как правильно вставить кусок кода?

Так у тебя же основного программного блока нету, как оно работать будет?
(Offline)
 
Ответить с цитированием
Старый 12.01.2013, 09:24   #4
Igor
Мастер
 
Аватар для Igor
 
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,217
Написано 436 полезных сообщений
(для 784 пользователей)
Ответ: Как правильно вставить кусок кода?

мб после последнего end поставить точку?
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
(Offline)
 
Ответить с цитированием
Старый 15.01.2013, 06:36   #5
Amigo888
Нуждающийся
 
Регистрация: 05.08.2011
Сообщений: 83
Написано 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)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 08:11.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com