ACSII получить номер символа

← →
ronyn (2006-08-13 01:58) [0]

Нужно получить номер символа в сопоставление данного стандарта, но не из символа в формате "s", а символа например введенногов Edit.
Заранее благодарен.

← →
Германн © (2006-08-13 02:09) [1]

1. Ord(Edit1.Text[Length(Edit1.Text)])

2. Edit1OnKeyPress((Sender: TObject; var Key: Char);
begin
X:=Ord(Key);
end;

и т.п.

← →
ronyn (2006-08-13 02:33) [2]

а если этот символ не клавишей вбит, а загружен из файла, как быть в этом случае?

← →
Ketmar © (2006-08-13 02:41) [3]

> [2] ronyn (13.08.06 02:33)
лучше всего -- застрелиться.

← →
Германн © (2006-08-13 02:56) [4]

> ronyn (13.08.06 02:33) [2]
>
> а если этот символ не клавишей вбит, а загружен из файла,
> как быть в этом случае?
>

for i:=1 to Length(Edit1.Text) do begin
XX:=Ord(Edit1.Text[i]);
end;

← →
ronyn (2006-08-13 03:05) [5]

Спасиба! Работает-)

if Edit1.Text <> "" then
> Ord(Edit1.Text[Length(Edit1.Text)])

ACSII получить номер символа Найти похожие ветки