Пример для работы с файлами csv

Avatar
Александр10
  • обновлен
  • Отвечен

Здравствуйте.

выложите, пожалуйста, пример для работы с файлами csv :

1 Сохранение файла в формате ГГ-ММ-ДД .csv

2. Добавление в файл записей событий.

3. Заголовок в виде Дата, параметр1, параметр2, параметрN

4. Колонки в файле вида Г-М-Д-Час-Мин-Сек, Значение1, Значение2, ЗначениеN

Ответы 2
Avatar
1
СИМП Лайт (тех поддержка)
  • На рассмотрении

День добрый.


Var  
filename: string;  
txtfile: TStringList;  
Val1, Val2, Val3: double;  

procedure OnStartScript;  
begin  
end;  

procedure OnStopScript;  
begin  
end;

Begin  
  filename := 'C:\log_' + FormatDateTime('YY-MM-DD' ,now) + '.csv';
  txtfile := TStringList.create;  
  try    
    if FileExists(filename) then   
    begin     
      txtfile.loadfromfile(filename);   
    end;
    txtfile.add(FormatDateTime('YY-MM-DD-HH-NN-SS' ,now) + ';' + FloatToStr(val1)+ ';' + FloatToStr(val2) + ';' + FloatToStr(val3));    
    txtfile.savetofile(filename); 
 finally    
   txtfile.free;  
 end;
end.


Портал поддержки клиентов работает на UserEcho