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

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

← →
Sergey_   (2003-03-19 10:35) [0]

Уважаемые ALL , подскажите плз как получить значение перечисляемого типа по номеру :
TPortType = (COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8);
как получить четвёртое значение ? забыл....

---

← →
REA ©   (2003-03-19 10:44) [1]

Ну в принципе Integer(COM4) прокатит... С высокой долей вероятности это будет 3. А зачем? Список COM портов можно кстати из реестра выдернуть.

---

← →
Sergey_   (2003-03-19 10:48) [2]

Мне нужно наоборот что то вроде Chr(41) = "A"
те по номеру получить значение

---

← →
Smithson ©   (2003-03-19 10:51) [3]

TPortType(3) = COM4

---

← →
Bel ©   (2003-03-19 10:58) [4]

var a: Integer;
b: TPortType;
begin
a := Ord(COM4); //a = 3
b := TPortType(3); //b = COM4
end.

---

← →
Sergey_   (2003-03-19 11:02) [5]

2(Smithson)То что надо !

---

← →
JohnnyJ ©   (2003-03-19 12:01) [6]

var p: TPortType;
begin
...
p := Low(TPortType);
Succ(p, number);
...
end;

где number = 0 для COM1, 1 для COM2 и т. д.

---

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

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



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