Re[3]: Помогите перевести на делфи
От: Aniskin  
Дата: 04.03.11 07:14
Оценка: 3 (1) +1
Здравствуйте, joiner, Вы писали:

J>Подскажите еще пожалуйста как получить данные из

J>InterfaceAndOperStatusFlags: Cardinal;// 8 значений, поразрядное ИЛИ TInterfaceAndOperStatusFlags;


function GetFlagState(AFlags: Cardinal; AFlagIndex: Integer): Boolean;
begin
  Result := AFlags and (1 shl AFlagIndex) <> 0;
end;
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.