как получить значение перечисляемого типа по номеру

← →
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)То что надо !

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

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

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