Архив форумов ЦИТФорума

[03]

прблема в том что при компиляции компилятор ставит курсор перед параметром nil красную полосу и не хочет понимать что это такое, CreateFile проглатывает. Код был слизан с королевства дельфей.
function PostComm(var Buf; size: word): integer; //пеpедача в поpт
var p: pointer; i: integer;
begin
p := @Buf;
while size > do begin
WriteFile(f, p^, 1, i,=nil);
{вырезано}
Application.ProcessMessages;
end;
end;
знак = поставлен сознательно для обозначения камня преткновения.

[Axel]

В Delphi6 все проходит нормально...
какое сообщение выдает компилятор?

[03]

Компилятор выдает Types of actual and formal var parametrs must be identical

[Axel]

на Delphi6 все нормально компилится...
проверь типы переменных используемых в качестве параметров:
WriteFile(hFile : THANDLE; pBuff : Pointer; dwWriteCount : DWORD; dwWrittenCount : DWORD; pOver : POverlapped = nil)