Текущий архив: 2003.09.15;
Скачать: CL | DM;
Вниз
Инициализация переменных Найти похожие ветки
← →
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)
← →
jack128 © (2003-09-02 19:34) [2]Блин, туплю..Спасибо
Страницы: 1 вся ветка
Текущий архив: 2003.09.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.033 c
