Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ACSII получить номер символа [D7, D2005, XP, 2003]

ronyn © (2006-08-13 01:58:00)
Нужно получить номер символа в сопоставление данного стандарта, но не из символа в формате 's', а символа например введенногов Edit.
Заранее благодарен.

TUser (2006-08-13 05:15:00) [1]
if Edit1.Text <> '' then
> Ord(Edit1.Text[Length(Edit1.Text)])

ronyn (2006-08-13 03:05:00) [2]
Спасиба! Работает-)

Германн (2006-08-13 02:56:00) [3]

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

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

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

ronyn (2006-08-13 02:33:00) [5]
а если этот символ не клавишей вбит, а загружен из файла, как быть в этом случае?

Германн (2006-08-13 02:09:00) [6]
1. Ord(Edit1.Text[Length(Edit1.Text)])

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

и т.п.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »