Заполнение ListView

[swoy45]

Всем доброго времени суток.
Вчера полдня мучился с автоматическим заполнением ListView на delphi, результат вышел не тот, которого я добивался. Я добился того, что колонки разделяются переносом строки, затем новая строка в ListView начинается, когда заканчиваются колонки. В общем, мне нужно заполнить из файла ListView таким образом: колонки разделяются знаком |, строки - переносом строки. Как это осуществить?
UPD: Так же нужно, чтобы это действие могло выполняться в обратном порядке - т.е. сохранять из ListView в текстовик

[astecenko]

Покажите Ваши наработки (которые не с тем результатом...)

[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

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



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

[Stilet]

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, 3);
    end;
  finally
    SL.Free;
    st.free;
  end;
end;

[swoy45]

Stilet, спс, все так, но одна поправочка:

Inc(i, 3);

зачем? он так пропускает каждые 2 строки, я поставил значение 1, теперь все отлично

а что насчет сохранения в такой же формы текстовик?

[Stilet]

with ListView.items do
 for i:=0 to Count-1 do begin
  s:=''; for j:=0 to SubItems.count-1 do s:=s+SubItems[i]+'|';
  st.Append(Caption+'|'+s);
 end;
st.SaveToFile...

Где s:string - временная переменка.

[swoy45]

а что значит j?
это не i случайно?

[Stilet]

J для прохода по колонкам строки.

[swoy45]

как этот j прописывать в var? его дельфи так просто не распознает

[Serge_Bliznykov]

как этот j прописывать в var?

или я не понял вопрос или одно из двух!
Так?

var
  SL,st: TStringList;
  i, j: Integer;
begin