[an error occurred while processing this directive]
|
Функция возвращает указатель на запись:
MesRec = record
Address: Word;
IdCode: Word;
AttemptCount: Byte;
Length: Byte;
MesBody: Byte;
end;
Объявляю функцию:
function FindMesInQueueById(MessageQueue: TList;IdCode: Word): ^MesRec;
-ругается.
Объявляю функцию:
function FindMesInQueueById(MessageQueue: TList;IdCode: Word): PMesRec;
- опять ругается.
А как правильно?