Скачать: CL | DM;

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]

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

---

← →
TUser ©   (2006-08-13 05:15) [6]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c