[pvotnichek]

Добрый день, помогите с задачкой.
Есть список в memo, допустим такой:

PHP код:

Тест1
509
3*321,00
19
490
3*198,00
Тест2
2
60,78
1
1
30,39
Тест3
10
640,25
1
9
577,19
Тест4
16
486,56
1
15
456,15 


Нужно заполнить им listview, Где названия "Тест" в item
Где цифры, в subitem's, чтобы получилась табличка.

[lmikle]

Ну, как то так, например:

Код:

var
  I, J : Integer;
  Item : TListItem;
begin
  I := 0;
  While I < Memo1.Lines.Count Do
    Begin
      Item := ListView1.Items.Add;
      Item.Caption := Memo1.Lines[i];
      For J := 0 To 4 Do
        Item.SubItems.Add(Memo1.Lines[I+J]);
      I := I + 6;
    End;
end;

[pvotnichek]

lmikle Супер, спасибо огромное! Единственное, что

Код:

 For J := 0 To 4 Do

1 а не 0, иначе текст задваивает во вторую колонку.

[lmikle]

А, да.
Ну, я прямо тут код писал, так что мог немного и ошибиться...