Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-71345
shagen
2002-07-26 20:44
2002.08.22
Е-mail адреса


3-70982
BAY
2002-07-31 11:22
2002.08.22
Client-Server


6-71299
sm_dmitry
2002-06-10 22:00
2002.08.22
Twebbrowser и линки на exe


1-71142
SinnerPro
2002-08-13 07:45
2002.08.22
Скрытие


1-71087
nebula_
2002-08-12 12:18
2002.08.22
OleContainer





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский