Как сделать так чтобы ListView1.Items.Item начинался с 1 а не с 0

[KWN, lnc]

Дело в том что я не могу нормально зарегистрировать клавишу

function RegHotKey(HotKey:TShortCut;id:integer):boolean;
var
TheKey:Word;
TheShiftState:TShiftState;
Modifiers:Cardinal;
flag:boolean;
begin

idkey:=id+idkey;
UnRegisterHotKey(Application.MainForm.Handle,idkey);
setlength(idkey1,length(idkey1)+1);
idkey1[id]:=idkey;
flag:=false;
HotKeyContacts:=HotKey;
ShortCutToKey(HotKeyContacts, TheKey, TheShiftState);
Modifiers:=0;
 if ssAlt in TheShiftState then
begin
Modifiers:= MOD_ALT;
flag:=true;
end;

if ssCtrl in TheShiftState then
 begin
 if flag=true then
  begin
  Modifiers:= modifiers or MOD_CONTROL;
  end
 else
begin
Modifiers:= MOD_CONTROL;
 end;
end;

if ssShift in TheShiftState then
begin
 Modifiers:= modifiers or MOD_Shift;
end;

Result := RegisterHotkey(Form1.Handle, idkey, Modifiers, TheKey);
end;

и вот кнопка

procedure TForm1.HotKeyLinkShow;
var
 i,j: integer;
 Hotkey,s:string;
 ini:Tinifile;
begin
ini := Tinifile.Create('c:\file.ini');
j := ini.ReadInteger('Number','1',1);

for i := 1 to j do
 begin
 s := ini.ReadString('Address', IntToStr(i), '');
 Hotkey := ini.ReadString('Promptness keys', IntToStr(i), '');
 if (s <> '') and (hotkey <> '') then
  begin
  ListView1.Items.Insert(i-1).Caption := s;
  ListView1.Items.Item[i-1].SubItems.Insert(0, Hotkey);
  ListView1.Items.Item[i-1].ImageIndex := 28;
  RegHotKey(TextToHotKey(HotKey, LOCALIZED_KEYNAMES), i-2);
  end;
 end;
end;

в чем проблема? он регистрирует после 1 все клавиши

[Stilet]

ListView1.Items.Insert(i-1).Caption := s;
ListView1.Items.Item[i-1].SubItems.Insert(0, Hotkey);
ListView1.Items.Item[i-1].ImageIndex := 28;

Индусы отдыхают )))

  
 With ListView1.Items.add do begin
  Caption := s;
  SubItems.Insert(0, Hotkey);
  ImageIndex := 28;
 end;

он регистрирует после 1 все клавиши

А что у тебя в ИНИ файле?

[GunSmoker]

http://www.gunsmoker.ru/2011/01/blog-post.html

[KWN, lnc]

Stilet, да в Ini а где нужно?
помоги!

есть идеи?

[Stilet]

да в Ini а где нужно?

Я не спрашивал где, я спросил что

[Пепел Феникса]

  ListView1.Items.Insert(i-1).Caption := s;
  ListView1.Items.Item[i-1].SubItems.Insert(0, Hotkey);
  ListView1.Items.Item[i-1].ImageIndex := 28;

меня сейчас инфаркт хватит в мои 18 лет...
а не проще работать TListView не используя массив вообще?(другой вариант Виталий показал)

procedure TForm1.HotKeyLinkShow;
var
 i,j: integer;
 Hotkey,s:string;
 ini:Tinifile;
 Item:TListItem;
begin
ini := Tinifile.Create('c:\file.ini');
j := ini.ReadInteger('Number','1',1);
for i := 1 to j do
 begin
 s := ini.ReadString('Address', IntToStr(i), '');
 Hotkey := ini.ReadString('Promptness keys', IntToStr(i), '');
 if (s <> '') and (hotkey <> '') then
  begin
  Item:=ListView.Items.Add;
  Item.Caption:=s;
  Item.SubItems.Add(Hotkey);
  Item.ImageIndex := 28;
  RegHotKey(TextToHotKey(HotKey, LOCALIZED_KEYNAMES), i-2);//начинаем с -1?
  end;
 end;
end;

где вы так со списками научили работать?
списки это не массивы.

ЗЫ: а кто мешает и в ини хранить с нуля?

[KWN, lnc]

[Address]
1=c:\
2=d:\
[Promptness keys]
1=F1
2=F2
[Number]
1=2

это файл INI

получается он начинает с 1..
а ListView с 0

[Пепел Феникса]

ИНИ файл ваш?

[KWN, lnc]

Так точно!
как мне сделать так чтобы он считывал все ссылки? ((( Help me

[GunSmoker]

убиться об стену

Уже ткнули в косяк.