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

[min@y™]

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

у тебя комп штоль отобрали и ты пишешь с мобильника nokia 3310?

[FleXik]

у тебя комп штоль отобрали и ты пишешь с мобильника nokia 3310?

бери выше, с утюга!

[min@y™]

бери выше, с утюга!

установи на утюг delphi и тестируй, задолбал.

[FleXik]

ребятишки, помогите с Edit'ом пожалуйста

[min@y™]

Сообщение от FleXik

ребятишки, помогите с Edit'ом пожалуйста

а шо с ним?

[FleXik]

а шо с ним?

надо в функции прописать Edit чтобы разделитель можно было вручную в нем прописывать

[min@y™]

надо в функции прописать Edit чтобы разделитель можно было вручную в нем прописывать

И чо?

З.Ы. Где вы все это слово дебильное взяли - "прописать"?

function ExportListItemsToCSV(AItems: TListItems; 
                              const AFileName: string; 
                              const Delim: 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 + Delim + Item.SubItems[siIndex];
            
          CSV.Add(Buffer);  
        end;

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

[FleXik]

З.Ы. Где вы все это слово дебильное взяли - "прописать"?

предложи свой вариант, спс огромнейшее за код

[min@y™]

предложи свой вариант

не писать фразы с этим словом, т.е. выбрасывать такие фразы из текста полностью.