Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

Преобразовать символ в ASCII код   Найти похожие ветки 

 
Delphi&Sql   (2006-04-20 09:26) [0]

Всем привет. Вопрос как сделать ?
К примеру
ShowMessage(Inttostr(Integer("a"))); -работает отлично, но вот если использовать переменную, например:
var s: string;
begin
s:="a";
ShowMessage(Inttostr(Integer(s)));
end;
То выдает неверный результат. Подскажите как можно преобразовать символ переменной s  в код ASCII ?


 
Ega23 ©   (2006-04-20 09:34) [1]

Ord(s)


 
balepa ©   (2006-04-20 09:35) [2]

ShowMessage(Inttostr(Integer(s[1])));
А ORD Не в моде ?


 
AbrosimovA ©   (2006-04-20 09:38) [3]

procedure TForm1.Button1Click(Sender: TObject);
var s: char;
begin
s:="a";
ShowMessage(Inttostr(Ord("A")));
end;


 
Delphi&Sql   (2006-04-20 09:45) [4]

Огромное спасибо, использовал Просто ORD(s) неполучалось, теперь понял ошибку.


 
Ega23 ©   (2006-04-20 09:46) [5]

var s: string;
Не string, а char. Или s[1].


 
AbrosimovA ©   (2006-04-20 10:41) [6]


> Ord("A")


Извиняюсь, здесь надо Ord(s)



Страницы: 1 вся ветка

Текущий архив: 2006.05.07;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.011 c
2-1145443424
Mameluke
2006-04-19 14:43
2006.05.07
Преобразование string в PChar


3-1142434109
RomanH
2006-03-15 17:48
2006.05.07
Добавление Jpeg в таблицу


2-1145557478
Ded22
2006-04-20 22:24
2006.05.07
Locate ???


3-1142481768
Ezorcist
2006-03-16 07:02
2006.05.07
BDE или ADO? Помогите определиться.


2-1145417723
Tans
2006-04-19 07:35
2006.05.07
Привет, мастера!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский