Экспорт всех колонок из ListView в .csv файл (Microsoft Excel)

[FleXik]

Как реализовать экспорт всех колонок из ListView в .csv файл (Microsoft Excel)??? Спасибо.

[ZuBy]

Циклом и между caption, subitems ставим ; пишем все в стринглист и сохраняем. Вуаля

[FleXik]

up...............

[FaTaL]

Чем тебе не понравился пост ZuBy? Вроде он правильно написал. Здесь Excel не зачем использовать.

[min@y™]

function ExportListItemsToCSV(AItems: TListItems; const AFileName: string): Boolean;
var
  Index, siIndex: Integer;
  Item: TListItem;
  CSV: TStringList;
  Buffer: string;
begin
  Result:= True;
  CSV:= TStringList.Create();
  try
    try
      for Index:= 0 to AItems.Count - 1 do
        begin
          Item:= AItems[Index];
          Buffer:= Item.Caption;
          for siIndex:= 0 to Item.SubItems.Count - 1 do
            Buffer:= Buffer + ';' + Item.SubItems[siIndex];
        end;

      CSV.SaveToFile(AFileName);
    except
      Result:= False;
    end;
  finally
    CSV.Free();
  end;
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
ААТТЕНШН!!!!
Код не отлаживал. Писал на заборе!

[FleXik]

делаю так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportListItemsToCSV(Form1.sListView1.Items, 'ololo.txt');
end;

не пашет, пробовал и ololo.csv

CSV.Add(Buffer);

доперло...

[min@y™]

доперло...

Похвально. Я ж предупреждал, что не отлаживал.
+Респект.

[FleXik]

min@y™, спасибо за функцию =)

[min@y™]

спасибо за функцию =)

Заходи, если что...

[FleXik]

min@y™, да, кстати, если разделитель я хочу прописывать в Edit, как правильно Edit прописать в

Buffer:= Buffer + ';' + Item.SubItems[siIndex];

?? просто не занимался никогда написанием функций.

Buffer:= Buffer + TEdit.Text + Item.SubItems[siIndex];

как-то так, не?