Преобразовать символ в 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) неполучалось, теперь понял ошибку.

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

> Ord("A")

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

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