VPF::Запись в отчёт по таймеру - Форум программистов

lider07

Дата 7.8.2003, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет

вопрос такой
как мне организовать поминутную запись в фаил
чтобы записывалось время 1 2 3 4 5 6 итого в файле запись должна равняться 6
но при этом при следующей записи в этот фаил - записьне должно обнулятся а прибовлятся
заранее благодарен

<Spawn>

Дата 7.8.2003, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Если в файле содержится только лишь одна запись, то:
Timer1.Interval:=60000;

Код

procedure TForm1.Timer1Timer(Sender:TObject);
var
List:TStringList;
begin
try
 List:=TStringList.Create;
 List.LoadFromFile('C:\file.txt');
 if List.Count=0 then
  List.Add('1')
 else
  begin
   List[0]:=IntToStr(StrToIntDef(List[0],-1)+1);
   if StrToInt(List[0])>0 then
    List.SaveToFile('C:\file.txt')
   else
    ShowMessage('Ошибка преобразования типов');
  end;
finally
 FreeAndNil(List);
end;
end;

Это сообщение отредактировал(а) <Spawn> - 7.8.2003, 12:10

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 7.8.2003, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Но вот что я могу сказать. Таимер обладает не очень хорошей точностью. И поэтом через некоторое время будет значительная погрешность. Так что лучше всего использовать сравнение с текущей датой\временем, возвращаемой функциями Now, Date, Time.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »