Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.051 c
14-48714
Ru
2003-08-27 09:43
2003.09.15
С днем независимости Молдова!


1-48572
Evgeniy_K
2003-09-04 11:14
2003.09.15
Модуль


1-48620
Ткаченко Сергей
2003-09-03 12:07
2003.09.15
Прибавление к дате дня/месяца


3-48482
Алексей Петухов
2003-08-22 13:45
2003.09.15
Сохранить и Загрузить.


3-48452
clickmaker
2003-08-18 16:05
2003.09.15
Репликация слиянием своими средствами