Инициализация переменных

← →
jack128 © (2003-09-02 19:11) [0]

День добрый
Такой вот вопрос
При попытке иницализировать переменную

type
TTransferApiFunc = function (Handle : THandle; Buffer : Pointer;
BufferSize : Cardinal; var TransferedBytes : Cardinal;
lpOverlapped: POverlapped): BOOL; stdcall;
TTransferType = (ttRead, ttWrite);
var
FuncArr : array [TTransferType] of TTransferApiFunc =
(@ReadFile,@WriteFile);

возникает ошибка (копиляции)"Constant expression expected",
в то ж время в модуле Forms видим

var
UtilWindowClass: TWndClass = (
style: 0;
lpfnWndProc: @DefWindowProc;
cbClsExtra: 0;
cbWndExtra: 0;
hInstance: 0;
hIcon: 0;
hCursor: 0;
hbrBackground: 0;
lpszMenuName: nil;
lpszClassName: "TPUtilWindow");
В чем разница? И вообще почему??!!!

← →
Andris (2003-09-02 19:24) [1]

Правильно будет вот так
FuncArr : array [TTransferType] of TTransferApiFunc =
(ReadFile,WriteFile);

а TWndClass.lpfnWndProc - имеет тип Pointer (проследи в windows.pas)

Блин, туплю..Спасибо

Инициализация переменных Найти похожие ветки