ListView txt çıkış alma

[brs]

Selam, ListView de txt çıkış alabiliyorum fakat sadece benim belirlediğim kolonları nasıl alabilirim?

Kod: Tümünü seç

procedure TForm6.SpeedButton1Click(Sender: TObject);
var
  i: Integer;
  MasaYolu, Tarih: String;
begin
  Tarih := Form1.Tarih.Caption;
  MasaYolu := GetSystemPath(CSIDL_DESKTOPDIRECTORY);
  if Form1.ListView1.Items.Count > 0 then
    with TStringList.Create do
      try
        for i := 0 to Form1.ListView1.Items.Count - 1 do
          with Form1.ListView1.Items[i] do
          begin
            SubItems.Delimiter := '|';
            // Add(Caption + sLineBreak);
            Add(Caption + SubItems.DelimitedText);

          end;
        SaveToFile(MasaYolu + '\' + Tarih + ' Tarihli Liste.txt ');
      finally
        Free;
      end;
end;

[mrmarman]

kaç sütun lazım? Sayısı 10'a kadar olan az sayıda ise basit yöntemle istediğin sütunları dilediğin sırasıyla al.

Kod: Tümünü seç

Add( caption +'|' + subitems[3] +'|' + subitems[0] +'|' +.....) ;

[brs]

Teşekkür ederim...