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

[KWN, lnc]

GunSmoker, когда я начинаю с -1 он у меня некорректно выводит список.
там где 1 он у меня 3 а там где 3 у меня 1.. короче все путается... а при -2.. все правильно, но не запускает 0

Уважаемые программисты! Помогите разобраться ((( не могу понять в чем проблема ((

[Stilet]

Сложного ничего нет

var i:TIniFile;a:Array[1..4] of TStringList;  k:integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'file1.ini');
 a[1]:=TStringList.Create; i.ReadSections(a[1]);
 for k:=2 to 4 do begin
  a[k]:=TStringList.Create; i.ReadSectionValues(a[1][k-2],a[k]);
 end;

 for k:=0 to a[2].Count-1 do
  with ListView1.Items.Add do begin
   Caption:=a[2].Values[a[2].Names[k]];
   SubItems.Add(a[3].Values[a[3].Names[k]]);
   SubItems.Add(a[4].Values[a[4].Names[k]]);
    RegHotKey(TextToHotKey(HotKey, LOCALIZED_KEYNAMES), k);

  end;
 i.Free;
end;

[KWN, lnc]

Stilet

Caption := a[2].Values[a[2].Names[k]];
SubItems.Add(a[3].Values[a[3].Names[k]]);
RegHotKey(TextToHotKey(a[3].Values[a[3].Names[k]], LOCALIZED_KEYNAMES), k);

снова - Не ровно ((

там где 1 = 2

сделал так

RegHotKey(TextToHotKey(a[3].Values[a[3].Names[k]], LOCALIZED_KEYNAMES), k-1);

все работает. но опять же 0 не запускает (((
вообщем вернулись

вот компонент ValueListEditor1 начинает с 1
может его стоит использовать? но вот как?! а то у меня все через жо-пу!

ПОМОГИТЕ, УВАЖАЕМЫЕ ЭКСПЕРТЫ

[Sibedir]

Что такое
idkey: Integer;
idkey1: array of Integer;
function TextToHotKey ...
?

Ибо сабака зарыта не в HotKeyLinkShow, а в RegHotKey.

P.S.: HotKeyLinkShow должен выглядеть так

var
  i, j: Integer;
  Hotkey, s: String;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath (Application.ExeName) + 'KWN.ini');
  j := ini.ReadInteger('Main','Count', 0);
  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
      with ListView1.Items.Add do begin
        Caption := s;
        SubItems.Add (Hotkey);
        ImageIndex := 28;
      end;
      RegHotKey (TextToHotKey(HotKey, LOCALIZED_KEYNAMES), i);
    end;
  end;
end;

[KWN, lnc]

idkey-индификатор

а насчет твоего кода

я исправил j := ini.ReadInteger('Main','Count', 0);
на j := ini.ReadInteger('Number','1', 0);

упаковывает нормально! но ТЕПЕРЬ СОВСЕМ НЕ РАБОТАЕТ!!! при нажати клавиши. выползает критическая обишка! ((

ВЫРУЧАЙТЕ!!!!!!!!!!!!!!!!!

RegHotKey (TextToHotKey(HotKey, LOCALIZED_KEYNAMES), i-2)

вот так вот четко! но только первый не работает ((( то есть 0
а если i-1 то криво! (((

выручайте (((((

[Sibedir]

idkey-индификатор

А-а-а. Ну так то оно все понятно стало

вот так вот четко! но только первый не работает ((( то есть 0
а если i-1 то криво! (((

Еще раз. Наверное, последний.
Сделай HotKeyLinkShow как я сказал и оставь его в покое. Нужно править RegHotKey.
Что такое
idkey: Integer;
idkey1: array of Integer;
function TextToHotKey ...
?
Поясни подробно, что это и с чем это едят. Давай код функции. Покажи код, где используется idkey и idkey1. Или лучше объясни зачем делаешь

idkey:=id+idkey;
UnRegisterHotKey(Application.MainForm.Handle,idkey);
setlength(idkey1,length(idkey1)+1);
idkey1[id]:=idkey;

Я так понимаю, у тебя есть еще зарезервированные HotKey. И эти новые идут с номером = кол-во старых + номер нового. Мне вообще кажется странным жесткое присваивание номера. Это не вяжется с твоим же хранением их в массиве.
И вообще, зачем сохраняешь в массив HotKey'ки из ini-файла. Мне кажется ты это как-то странно делаешь. Если регистрируешь, скажем 10, а там их только 2, то массив увеличивается, и становится непонятным какой id у HotKey'ов с 2 по 9. Остается большая дыра для ошибок программы.
Короче. Рекомендую для начала избавится от idkey и idkey1. Какбудто у тебя есть только HotKey'ки из ini-файла. Довести до ума их регистрацию. Потом добавить сохранение в массив. Довести до ума и его. А потом уже idkey:=id+idkey.

P.S.: Лучше всего, выреж из своего проекта все, что относится к данной проблеме и выложи сюда. Так, чтобы мы имели рабочий проект (можно было сразу открыть) с этой самой проблемой.

[KWN, lnc]

begin
k:=1;
while (k<=length(idkey1)) do
 begin
 if idkey1[k-1]=i then
   begin
     break;
  end;
k:=k+1;
end;
end;

вот, продолжение..
можно сказать что оно основное!

есть идеи?

[BOBAH13]

Сообщение от KWN, lnc

begin
k:=1;
while (k<=length(idkey1)) do
 begin
 if idkey1[k-1]=i then
   begin
     break;
  end;
k:=k+1;
end;
end;

вот, продолжение..
можно сказать что оно основное!

Понятия не имею о чем речь, либо из топика ясно что дело дрянь, а жевать такой вопрос на стольких страницах?!
По вашему коду, обычно это делается так:

begin
for k:= 0 to Length(idkey1) -1 do
if (idkey1[k] = i) then break;
// если было найдено i, то 0 <= k < Length(idkey1)
// если не было найдено i, то k = Length(idkey1)
end;

Как то так, если меня память по дельфи не подводит

[KWN, lnc]

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var i,k:integer;
begin
i:=msg.HotKey;
k:=1;
for k:= 0 to Length(idkey1) -1 do
if (idkey1[k] = i) then break;
k:=k+1;
ShellExecute(0,nil,Pchar(ListView1.Items.Item[k].Caption),nil,nil, Sw_Show);
end;

не пашет! вообщем вот целиком код.

[BOBAH13]

Что писал я, что не писал. Вы читайте что вам пишут, толку будет больше!