подскажите как открыть файл .csv Другие форматы получается, а этот нет
procedure TForm1.Button4Click(Sender: TObject);
var
StarDesktop, Document, StarOffice : variant;
begin
StarOffice := CreateOleObject('com.sun.star.ServiceManager');
StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');
Document := StarDesktop.LoadComponentFromURL(ConvertToURL('c:\1.csv'),
'_blank',0,VarArrayCreate([0, -1], varVariant));
Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста. |