[LilLoco]

swoy45, Что то не совсем понятно. Что значит автоматическим? Что должно получиться?
Но навскиду. В циклах проходитесь по необходимым вам данным. В "внутреннем" цикле формируются строки, через "|"

Код:

Row = ""
...............................................
Row = Row + "данные" + "|";

По окончании формирования строки удаляете последний символ (им будет "|")

Ну а во внешнем добавляете строки в ListView.

Для конкретики, хотелось бы видеть код, исходные данные, что требуется...

[swoy45]

вот как я описывал процедуру:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  SL: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(edit1.text);
    i := 0;
    while i < SL.Count do
    begin
      with ListView1.Items.Add do
      begin
        Caption := SL[i];
        SubItems.Add(SL[i + 1]);
        SubItems.Add(SL[i + 2]);
      end;
      Inc(i, 3);
    end;
  finally
    SL.Free;
  end;
end;

вот то, что в файле:

Код:

0001|надпись1|25.00
0002|надпись2|55.00
0003|надпись3|85.00
0004|надпись4|105.00
0005|надпись5|135.00
0006|надпись6|155.00

вот что получается:



а вот что должно получиться:

[swoy45]

я додумался сделать вот так, теперь все работает как надо

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  SL,st: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;St := TStringList.Create; st.Delimiter:='|';
  try
    SL.LoadFromFile(edit1.text);
    i := 0;
    while i < SL.Count do
    begin st.DelimitedText:=SL[i];
      with ListView1.Items.Add do
      begin
        Caption := St[0];
        SubItems.Add(St[1]);
        SubItems.Add(St[2]);
      end;
      Inc(i, 1);
    end;
  finally
    SL.Free;
    st.free;
  end;
end;

остается один вопрос, как все это дело сохранять в текстовик такой же формы?

[Delirium]

Ну как как. Построчно обходим элементы и записываем. После записи каждого элемента в строке пишем |. После записи последнего элемента в строке ListView записываем | и пишем в конец файла.