LPT: Что есть tlLPTx?

← →
GydruS © (2002-07-23 08:50) [0]

Мастера, поделитесь пожалуйста своими отличными знаниями!
Есть исходник. Есть строка:

type TLptType = (tlLPT1, tlLPT2, tlLPT3, tlLPT4, tlUserDefined);

При компиляции она проходит нормально.
А в справке на счёт этого ничего нет :(. Так же как и не помогает Find Declaration :(.
В дальнейшем мне нужно преобразовывать функции и процедуры. И вот мне не очень хочется менять всё это tlLPTx хозяйство, даже не зная, что оно из себя есть.

Большое спасибо!

← →
MBo © (2002-07-23 08:59) [1]

это просто перечислимый тип (см. Enumerated types)

← →
GydruS © (2002-07-23 09:35) [2]

Ok. Спасибо, что напомнили! (ларчик просто открывался :)) )
Тогда:

var p: TLptType; AAdr: integer; begin ... p:=tlLPT1; while ( GetLptPortFromBios(p) <> AAdr ) AND (p<tlUserDefined) do inc(p); ... end;

Как избавляться от
Incompatible types: "Integer" and "TLptType" ?

На всякий случай вот обычный
function GetLptPortFromBios(PortNo: integer): word; assembler; stdcall; asm push es push ebx mov ebx, PortNo shl ebx,1 mov ax,40h // Dos segment adress mov es,ax mov ax,ES:[ebx+6] // get port adress in 16Bit way :) pop ebx pop es end;

Спасибо!

← →
MBo © (2002-07-23 09:43) [3]

GetLptPortFromBios(integer(p))

← →
GydruS © (2002-07-23 09:46) [4]

О... Всё, я это обошел :)) так:

function GetLptPortFromBios(PortNo: TLptType): word; var PN : Integer; begin PN := ord(PortNo); GetLptPortFromBiosA(PN); end;

Is it Right?

да

Ок. Тогда пока всё. :))
Спасибо за внимание и за помошь! :))))

LPT: Что есть tlLPTx? Найти похожие ветки