Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

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]);

---

← →
Skier ©   (2002-08-12 15:46) [4]

>Внук

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


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...

---

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

>>Ученик © (12.08.02 15:46)
Абсолютно верно :)
Уже разобрался, но все равно спасибо.
Издержки C++ дают о себе знать...

---

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

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c