SetLength в dpr-файле

← →
Внук © (2002-08-12 15:37) [0]

var LayoutNum,i:integer;
List:array of HKL;
LayoutFound:boolean;
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);

LayoutFound:=false;
LayoutNum:=GetKeyboardLayoutList(0,List);
if LayoutNum>0 then
begin
SetLength(List,LayoutNum);
GetKeyboardLayoutList(LayoutNum,List);
for i:=0 to LayoutNum-1 do
if List[i]=что-нибудь then LayoutFound:=true; // Здесь получаем AV
end;

Application.Run;
end.

Есть мысль, что работа с динамическими массивами в dpr невозможна. Правда ли это?

← →
Skier © (2002-08-12 15:39) [1]

>Внук
Что есть HKL ?
И по-подробней про if List[i]=что-нибудь :)

← →
Внук © (2002-08-12 15:40) [2]

HKL - тип данных Windows API, читай LongWord
if List[i]=0 например ...

← →
Ученик © (2002-08-12 15:46) [3]

GetKeyboardLayoutList(LayoutNum,List[0]);

>Внук

Вот такой код у меня работает :

var List:array of LongWord; ii : Integer; LayoutFound : Boolean; begin Application.Initialize; Application.CreateForm(TForm1, Form1); SetLength(List, 10); for ii := 0 to 10-1 do if List[ii]=0 then LayoutFound:=true; Finalize(List); Application.Run; end.

приглядись к GetKeyboardLayoutList...

SetLength в dpr-файле Найти похожие ветки