Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
4-71436
Ярослав
2002-06-19 16:25
2002.08.22
Закачка ф-ла по HTTP


14-71350
SPeller
2002-07-26 18:02
2002.08.22
Win SDK - отстой?


1-71140
restless
2002-08-09 15:28
2002.08.22
Повернуть DBNavigator


1-71260
GIN
2002-08-12 10:38
2002.08.22
Проблемы с CGI-скриптами


1-71113
poligalov1
2002-08-12 08:17
2002.08.22
вопрос