ListView

[Pasha_Sh]

Пробую создать справочник с помощью компонента listview, но возникло две проблемы
1. Кода в поле больше 4 строк, программа начинает ругаться ListIndex out of bounds (4)
2. Не получается добавить список листвью в TStringList, но программа снова начинает ругаться, вот код

var
x: tstringlist;
t: integer;
begin
x:=tstringlist.Create;
x.Add(inttostr(i));
for t:=0 to i do begin
x.Add(listview1.Items[t].Caption);
x.Add(listview1.Items[t].SubItems[0]);
x.Add(listview1.Items[t].SubItems[1]);
x.Add(listview1.Items[t].SubItems[2]);
x.SaveToFile('base.txt');

И вот полный код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Mask, DBCtrls, XPMan;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    GroupBox5: TGroupBox;
    Edit2: TEdit;
    GroupBox6: TGroupBox;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    XPManifest1: TXPManifest;
    Timer1: TTimer;
    listview1: TListView;
    ComboBox1: TComboBox;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure get;
    procedure listview1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  op: string;
  i,n: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
listview1.AddItem(combobox1.Text, listview1.Columns[i]);
listview1.Items[i].subitems.add(edit1.Text);
listview1.Items[i].subitems.add(edit2.Text);
listview1.Items[i].subitems.add(edit3.Text);
i:=listview1.Items.Count;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
n:=ListView1.Selected.Index;
listview1.Items[n].Caption:=op;
listview1.Items[n].subitems[0]:=edit1.Text;
listview1.Items[n].subitems[1]:=edit2.Text;
listview1.Items[n].subitems[2]:=edit3.Text;
end;

procedure TForm1.get;
begin
edit1.Text:=listview1.Items[n].SubItems[0];
edit2.Text:=listview1.Items[n].SubItems[1];
edit3.Text:=listview1.Items[n].SubItems[2];
combobox1.Text:=listview1.Items[n].Caption;
end;

procedure TForm1.listview1Click(Sender: TObject);
begin
n:=ListView1.Selected.Index;
get;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
listview1.Items[n].Delete;
i:=i-1;
end;

end.

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

цикл должен быть до i-1

[Pasha_Sh]

Пепел Феникса, спасибо!
Как насчет с

Кода в поле больше 4 строк, программа начинает ругаться ListIndex out of bounds (4)

?

[Veronikaa]

  for I := 0 to 99 do   begin
listview1.Items.Add();
listview1.Items.Item[listview1.Items.Count-1].Caption:=(IntToStr(i));
listview1.Items.Item[listview1.Items.Count-1].SubItems.Add(IntToStr(Random(999)));
listview1.Items.Item[listview1.Items.Count-1].SubItems.Add(IntToStr(Random(999)));
listview1.Items.Item[listview1.Items.Count-1].SubItems.Add(IntToStr(Random(999)));
  end;

наверно так

[Pasha_Sh]

Оо, нет же, это при нажатии на кнопку сразу 100 ненужных строк создастся

[Veronikaa]

Сообщение от Pasha_Sh

Оо, нет же, это при нажатии на кнопку сразу 100 ненужных строк создастся

это пример
просто вместо

listview1.AddItem(combobox1.Text, listview1.Columns[i]);

использую

listview1.Items.Add();
listview1.Items.Item[listview1.Items.Count-1].Caption:=combobox1.Text;

[Pasha_Sh]

Спасибо вам! Заработало

[Pasha_Sh]

Вот еще мелкая ошибка:
Вроде бы все сохраняется хорошо, но если в листвью нет записей, то при сохранении программа выдает ошибка. как исправить это?

[Veronikaa]

listview1.Items.Count<>0
то сохранить

[Pasha_Sh]

Блин, я пробовал если больше нуля
Спасибо большое еще раз