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

[KWN, lnc]

BOBAH13, прочитал! ничего не помогло!!!

УВАЖАЕМЫЕ ЭКСПЕРТЫ, ВЫРУЧАЙТЕ!!!!!!

... я так понял что нет больше предложении? ((( я реально в тупике ((

Уважаемые программисты, выручайте!

ПОМОГИТЕ РАЗОБРАТЬСЯ!!!!!

[chertovich]

Сообщение от Пепел Феникса

никак.
динамические массивы в Делфи(именно типа array) начинается всегда с нуля.

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

А смысла изменять это нет, поэтому можешь конечно переписать свойсво если вообще нечего делать

[Stilet]

KWN, lnc

Что такое "пошаговка" ты знаешь?
Отлаживать умеешь? поставь точку прерывания на начало функции, и пошагово пройдись, когда прога на ней брякнется, по коду выяснив какие переменные чему равны становятся.

[KWN, lnc]

Stilet, не мог бы ты посмотреть что у меня не правильно? я вот все перерыл и не помогло ((( выручи а

[KWN, lnc]

УВАЖАЕМЫЕ ПРОГРАММИСТЫ, ТРЕБУЕТСЯ ВАЩА ПОМОЩЬ! ВЫРУЧАЙТЕ!

[ArtGrek]

я так пробежался по теме, все чесно говоря не читал, но вроди ты не поимеш одну вешь
если A начинаеца с 0, а B с 1 тоесть

a: array [0...5] of string;
b: array [1..6] of string;
for i := 0 to a.Count - 1 do
  a[i] := b[i+1]

тоесть цикл начинаеш с меньшего, а так как B всегда на 1 больше пребавляеш единицу
я б на твоем месте просто сначала попробывал, потому что путаница там.....

[KWN, lnc]

ArtGrek, куда это вставлять? объясни пожалуйста

[Stilet]

не мог бы ты посмотреть

Нет не мог. Я не телепат. выкладывай проект с кодом тогда возможно посмотрю если он у меня откроется

[KWN, lnc]

Stilet лови

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, shellApi,menus, Grids, ValEdit, inifiles;

 const
 WM_MyMessage=Wm_user+1;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
  
  procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;
  idkey:integer=1;
  idkey1:array of integer;
  row:integer=-1;

implementation

{$R *.dfm}

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.WMHotKey(var Msg: TWMHotKey);
var i,k:integer;
begin
i:=msg.HotKey;
k:=1;
while (k<=length(idkey1)) do
 begin
 if idkey1[k-1]=i then
   begin
     break;
  end;
k:=k+1;
end;
shellExecute(0,nil,Pchar(ListView1.Items.Item[l].Caption),nil,nil,sw_show);
end;

[Stilet]

Мдя... Я смотрю твое неуважение к форумчанам настолько велико что ты нас всех считаешь Зелеными Человечками, способными телепатировать в твоем, прости, воспаленном мозгу...

Спасибо за код, ничем помочь не могу, пока ты не сделаешь то что я попросил а не то что тебе после ЛСД привидилось.
Удачи