Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Unicode 


alex1111   (2002-03-18 15:43) [0]

Как получить Unicode символа?



Лёша   (2002-03-18 20:17) [1]

Здесь как строку переводить:

function Unicode(const S: string): string;
var
I: Integer;
Hex: string;
begin
for I := 1 to Length(S) do

case S[i] of
" ": result := Result + "+";
"A".."Z", "a".."z", "*", "@", ".", "_", "-",
"0".."9", "$", "!", """", "(", ")":
result := Result + s[i];
else
begin
Hex := IntToHex(ord(S[i]), 2);
if Length(Hex) = 2 then Result := Result + "%" + Hex else
Result := Result + "%0" + hex;
end;
end;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.031 c
3-90738           aleks2000             2002-02-24 12:48  2002.03.28  
<B>Как открыть ДОС базу данных dBase III в Делфи, так чтобы было написано на нормальном русском</B>


1-90904           Sound                 2002-03-18 13:06  2002.03.28  
Срочно нужна помощь!!! Как встроить в Delphi приложение компилятор Pascal?


1-90833           Лана Розанова         2002-03-16 13:13  2002.03.28  
Удаление


1-90965           zep                   2002-03-14 23:42  2002.03.28  
КАК В ДЕЛЬФИ СДЕЛАТЬ ГЛАВНУЮ ФОРМУ КРУГЛОЙ


1-90869           Leo_                  2002-03-17 12:48  2002.03.28  
Ping