Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
Внизкак получить значение перечисляемого типа по номеру Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c