добавление данных строками... Listview (оптимизация кода)

[Fahman]

Здрасте всем....
Нужно было добавить в listview кое какие данные делаю это так

var
item: tlistitem;
begin
item:=Lv1.Items.Add;
item.Caption:=IntToStr(Lv1.Items.Count);
item.SubItems.Add(Memo1.Lines[0]);  
item.SubItems.Add(Memo2.Lines[0]);
end;

В первом например у меня цена хронится а во втором мемо проценты к примеру . В результате я получаю такую табличку
1983.32 56%

Ну так вот что хочу сказать у меня таких данных ну скажем 10-13-15 строк и как мне все их добавить? Моим способом можно добавить а вот нельзя добавить так например в столбик? Т.е. цена в столбик добавляется с мемо1 а проценты с мемо2 можно ли так?

[Slym]

var
item: tlistitem;
i:integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
  begin
    item:=Lv1.Items.Add;
    item.Caption:=IntToStr(Lv1.Items.Count);
    item.SubItems.Add(Memo1.Lines[i]);  
    item.SubItems.Add(Memo2.Lines[i]);
  end;
end;

[Stilet]

Цикель всему гольовя

var
item: tlistitem;i,j:integre;
begin
i:=0;j:=0;
while (i<Memo1.Lines.Count) or (j<Memo2.Lines.Count) do begin
 item:=Lv1.Items.Add;
 item.Caption:=IntToStr(Lv1.Items.Count);

 if i<Memo1.Lines.Count then item.SubItems.Add(Memo1.Lines[i])
 else item.SubItems.Add('0');

 if j<Memo2.Lines.Count then item.SubItems.Add(Memo2.Lines[j])
 else item.SubItems.Add('0');

 inc(i);inc(j);
end;
end;

Slym

Печалька случится если в Мемо-ах разное кол-во строк.

[саша40]

Перед дополнение строк лучше отключить перерисовку компонента, а после добавления снова включить.

[Stilet]

отключить перерисовку компонента

Согласен. Не помешает.

[Fahman]

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

Согласен. Не помешает.

А как отключить ее?

[Stilet]

Lv1.Items.BeginUpdate перед циклом и .EndUpdate после.

[Fahman]

А вот что у меня получилось, надо в 2 столбика было расфасовать я помню что, что-то надо в Object inspector'е поменять но вот вспомнить не могу хоть убей) ( давно не пользовался этим компонентом что забыл


Вот правильно ли я сделал перерисовку?

procedure TForm1.Button1Click(Sender: TObject);
var
item: tlistitem;i,j:integer;
begin
  ListView1.Items.BeginUpdate;
i:=0;j:=0;
while (i<Memo1.Lines.Count) or (j<Memo2.Lines.Count) do begin
 item:=ListView1.Items.Add;
 item.Caption:=IntToStr(ListView1.Items.Count);

 if i<Memo1.Lines.Count then item.SubItems.Add(Memo1.Lines[i])
 else item.SubItems.Add('0');

 if j<Memo2.Lines.Count then item.SubItems.Add(Memo2.Lines[j])
 else item.SubItems.Add('0');
       ListView1.Items.EndUpdate;
 inc(i);inc(j);
end;
end;