| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Преобразовать символ в ASCII код [D7, 2000]
Delphi&Sql © (2006-04-20 09:26:00)Всем привет. Вопрос как сделать ?
К примеру
ShowMessage(Inttostr(Integer('a'))); -работает отлично, но вот если использовать переменную, например:
var s: string;
begin
s:='a';
ShowMessage(Inttostr(Integer(s)));
end;
То выдает неверный результат. Подскажите как можно преобразовать символ переменной s в код ASCII ?
AbrosimovA (2006-04-20 10:41:00) [1]
> Ord('A')
Извиняюсь, здесь надо Ord(s)
Ega23 (2006-04-20 09:46:00) [2]
var s: string;
Не string, а char. Или s[1].
Delphi&Sql (2006-04-20 09:45:00) [3]Огромное спасибо, использовал Просто ORD(s) неполучалось, теперь понял ошибку.
AbrosimovA (2006-04-20 09:38:00) [4]
procedure TForm1.Button1Click(Sender: TObject);
var s: char;
begin
s:='a';
ShowMessage(Inttostr(Ord('A')));
end;
balepa (2006-04-20 09:35:00) [5]ShowMessage(Inttostr(Integer( s[1])));
А ORD Не в моде ?
Ega23 (2006-04-20 09:34:00) [6]Ord(s)
| |
