| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

var Windows: array of HWnd; ... SetLength(Windows,WindowsCount);

Delphi5.01 ©   (2003-08-01 20:33:00) 

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?

---

YURiQUE   (2003-08-02 12:07:00) [1]

Попробуй так


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:06:00) [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.

---

Rouse_   (2003-08-02 08:31:00) [3]

HWND = type LongWord;

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

---

Наверх