Скачать: CL | DM;

var Windows: array of HWnd; ... SetLength(Windows,WindowsCount);   Найти похожие ветки 

← →
Delphi5.01 ©   (2003-08-01 20:33) [0]

procedura doljna vozrashat masiv okon, a imenno ix Handle, no izmenat masiv ne vozmojno iz za togo chot napisano "var" pered "Windows: array of HWnd" (ia je ne znau skolko okon budet! po etoi prichine peredau dinamicheski).

procedure GetWindows(ParentWnd: HWnd;
var Windows: array of HWnd);
var WindowsCount: Integer;
begin
Inc(WindowsCount);
( Windows,WindowsCount) procedura doljna vozrashat masiv okon, a imenno ix Handle, no izmenat masiv ne vozmojno iz za togo chot napisano "var" pered "Windows: array of HWnd" (ia je ne znau skolko okon budet! po etoi prichine peredau dinamicheski).

procedure GetWindows(ParentWnd: HWnd;
var Windows: array of HWnd);
var WindowsCount: Integer;
begin
Inc(WindowsCount);
SetLength(Windows,WindowsCount);
end;

Kak oboiti problemu?
P.S. eto vopros ne vtemu mne kajetsa?

---

← →
Rouse_ ©   (2003-08-02 08:31) [1]

HWND = type LongWord;

Желаю успехов

---

← →
YURiQUE ©   (2003-08-02 12:06) [2]

Попробуй так


type
MyArray = array of HWnd;

procedure GetWindows(ParentWnd: HWnd;
var Windows: MyArray);
begin
Inc(WindowsCount);
( Windows,WindowsCount) Попробуй так


type
MyArray = array of HWnd;

procedure GetWindows(ParentWnd: HWnd;
var Windows: MyArray);
begin
Inc(WindowsCount);
SetLength(Windows,WindowsCount);
end;

//...

var
w: MyArray;
begin
//...
GetWindows(Handle, w);
//...
end.

---

← →
YURiQUE ©   (2003-08-02 12:07) [3]

Попробуй так


type
MyArray = array of HWnd;

procedure GetWindows(ParentWnd: HWnd;
var Windows: MyArray);
begin
Inc(WindowsCount);
( Windows,WindowsCount) Попробуй так


type
MyArray = array of HWnd;

procedure GetWindows(ParentWnd: HWnd;
var Windows: MyArray);
begin
Inc(WindowsCount);
SetLength(Windows,WindowsCount);
end;

//...

var
w: MyArray;
begin
//...
GetWindows(Handle, w);
//...
end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c