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.

Попробуй так

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.

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