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

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

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

Ответ
 
Опции темы
Старый 07.08.2010, 18:07   #1
jt2003
AnyKey`щик
 
Регистрация: 04.08.2010
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Help...Lib or function to replace String

Hi.

i´ve seen that font32 lib do not accept iso8859-1 chars like ç...
i would need some code help to create a function to replace a string..something like:

str1:="nice day ç";
newstr:=integerToString((CHR(231));
string_replace (str1,"ç",newstr);

any ideias or code samples???

thanks,
(Offline)
 
Ответить с цитированием
Старый 07.08.2010, 18:30   #2
cherepets
Бывалый
 
Аватар для cherepets
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: Help...Lib or function to replace String

you can use russian or for other symbols and replace them in font file *.png.
i made some smiles for chat in my game that way

"костыль"
(Offline)
 
Ответить с цитированием
Старый 09.08.2010, 18:18   #3
jt2003
AnyKey`щик
 
Регистрация: 04.08.2010
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Сообщение Ответ: Help...Lib or function to replace String

Сообщение от cherepets Посмотреть сообщение
you can use russian or for other symbols and replace them in font file *.png.
i made some smiles for chat in my game that way

"костыль"
Hi.

but in that case i "lost" common chars like "abcdef..."; my ideia is:

1-create a txt file as resource
2- load it and create a function ( lib was better) that parse/replace all non readable chars in font32 lib and replace them with their CHR codes...i saw that if i use in font32 lib " some text"+chr(200) it works.... the lib / function would translate those chars that block the APP...

thanks anyway
(Offline)
 
Ответить с цитированием
Старый 10.08.2010, 03:04   #4
cherepets
Бывалый
 
Аватар для cherepets
 
Регистрация: 18.08.2009
Сообщений: 745
Написано 146 полезных сообщений
(для 215 пользователей)
Ответ: Help...Lib or function to replace String

you won't lose latin chars because you can replace only cyrilic.
i'm sure that you have russian layout in windows, so you can write them as yours.

i mean you will replace russian 'с' with your 'з' in *.png file. after that you will still have english 'c' and if your own 'з' that must be mentioned in code as russian 'c'.

sorry if my explaintion doesn't seem very clear.
(Offline)
 
Ответить с цитированием
Старый 10.08.2010, 06:08   #5
abcdef
Знающий
 
Регистрация: 16.09.2008
Сообщений: 299
Написано 71 полезных сообщений
(для 123 пользователей)
Ответ: Help...Lib or function to replace String

function repls(str, s1, s2 : string) : string;
var
  p,len1 : integer;
begin
  len1 := length(s1);
  repeat
    p := pos(str,s1);
    if (p<0) then break;
    str := copy(str,0,p) + s2 + copy(str,p+len1,length(str));
  until false;
  repls := str;
end;

var
  i : integer;
  s : string;
begin
  s := repls('4501234567890123456789454','45','abcdef');
  showForm;
  i := formAddString('>> '+s);
  repeat until false;
end.
(Offline)
 
Ответить с цитированием
Старый 14.08.2010, 13:23   #6
jt2003
AnyKey`щик
 
Регистрация: 04.08.2010
Сообщений: 7
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Help...Lib or function to replace String

thanks for the code..

Сообщение от abcdef Посмотреть сообщение
function repls(str, s1, s2 : string) : string;
var
  p,len1 : integer;
begin
  len1 := length(s1);
  repeat
    p := pos(str,s1);
    if (p<0) then break;
    str := copy(str,0,p) + s2 + copy(str,p+len1,length(str));
  until false;
  repls := str;
end;

var
  i : integer;
  s : string;
begin
  s := repls('4501234567890123456789454','45','abcdef');
  showForm;
  i := formAddString('>> '+s);
  repeat until false;
end.
(Offline)
 
Ответить с цитированием
Старый 27.02.2012, 01:42   #7
ВиНТ
Оператор ЭВМ
 
Регистрация: 26.02.2012
Сообщений: 26
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Help...Lib or function to replace String

IntegerToString() ?

Последний раз редактировалось ВиНТ, 27.02.2012 в 17:01.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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