Ваши комментарии
8 лет назад
Исправленно.
День добрый.
Ок. Спасибо. Поправим.
День добрый.
Пока такой возможности нет. Добавим.
День добрый.
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.
Как вариант смените путь сохранения, возможно сохранять в корень диска "С" не дает сама ОС.
День добрый.
Напомните о каком именно примере идет речь, я посмотрю.
День добрый.
С таким поведением не сталкивались. Пришлите Вашу мнемосхему на simp@simplight.ru
Сервис поддержки клиентов работает на платформе UserEcho