[Мяфк]

Здравствуйте у меня есть система логов, то есть копирование текста из программы в тхт файл. Дак вот возникла надобность сделать имена логов как дата и время. Т.е. к примеру 18ч01м2009г19ч18м32с.txt
Дак вот проблема в том, что мне надо, что бы когда пользователь запустил программу и прошло 10 секунд (таймер у меня уже есть) создался лог файл и при прохождение ещё 10 секунд, не создавался бы лог файл, а записывался в первый и так пока программа не будет закрыта и запущена снова. Пытался сделать, вот последние мои опыты:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure Timelog(i:integer); var lt: TSYSTEMTIME; s:string; begin GetLocalTime(lt); if (i = 1) then AddLog(form1.script.Text,s+'.txt') else s:= IntToStr(lt.wDay) + 'ч' +     IntToStr(lt.wmonth) + 'м' +     IntToStr(lt.wYear) + 'г' +     IntToStr(lt.wHour) + 'ч' +     IntToStr(lt.wMinute) + 'м' +     IntToStr(lt.wSecond) + 'с';     AddLog(form1.script.Text,s+'.txt');     end;   procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin i:=i+1; if (form13.ComboBox1.ItemIndex = 2) then Timer1.Enabled:=false else if (i=1) then Timelog(0) else Timelog(1); end;

Это я пытался сделать через переменную, якобы когда срабатывает первый таймер, переменная i получает значение 1, а когда следующие на единицу больше, вот так проверку построил, но не выходит. Так же пытался в процедуре таймер проверить на длинну s. Так же безрезультатно.
Подскажите пожалуйста.

[v1s2222]

Не совсем понял вопрос, но если вам необходимо создавать файл лога с названием даты, то можно это сделать очень просто:
TimeToStr(Time) - возвратит время (например: 17:31:51)
DateToStr(Date) - возвратит саму дату.

Записывать в файл я думаю вы умеете, создаете файл (вот пример):

Код:

1 2 3 4 5 6 7 8

var f:textfile; begin ... AssignFile(f, 'C:\'+DateToStr(Date)+'.txt'); // и потом уже записываете в сам файл (например reset(f) и бла бла бла) ... CloseFile(f);

[Мяфк]

Этот вариант не устраивает так как, в файлах не должно быть двоеточий, винда не позволяет.

[Sky.NET]

А что мешает заменить двоеточия на другой символ?

[Uniq!]

Сообщение от Sky.NET

А что мешает заменить двоеточия на другой символ?

Пройтись циклом по полученной строке приеняя StuffString функцию

[Страдалецъ]

Как я понял, вам необходимо добавлять в лог каждые 10сек некие записи.
Можно конечно на каждый сеанс делать свой лог-файл, но мне кажется лучше сделать один лог-файл с разделами для каждого сеанса.
Для этого мне кажется очень удобно воспользоваться классом TIniFile. Выглядеть тогда это будет так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

unit Unit7;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, ComCtrls, IniFiles;   type   TForm7 = class(TForm)     ProgressBar1: TProgressBar;     Timer1: TTimer;     procedure Timer1Timer(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     Log: TIniFile;     StartApp: String;   public     { Public declarations }   end;   var   Form7: TForm7;   implementation   {$R *.dfm}   procedure TForm7.FormCreate(Sender: TObject); begin  StartApp := DateTimeToStr(Now); end;   procedure TForm7.FormDestroy(Sender: TObject); begin  Log.Free; end;   procedure TForm7.Timer1Timer(Sender: TObject); begin  Log := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Journal.log');  Log.WriteString(StartApp,DateTimeToStr(Now),'... и они еще посидели немножко.');  ProgressBar1.StepIt;  Application.ProcessMessages;  if ProgressBar1.Position = ProgressBar1.Max then Close; end;   end.

[Мяфк]

Возможно так удобнее, но не для моего случая. В ричедите может быть строк более 500. А потом в 1 файле искать определённую сессию не удобно.

Сообщение от Uniq!

Пройтись циклом по полученной строке приеняя StuffString функцию

Да такой вариант то же можно, но месяц может поменяться например было 9 месяц, прошёл месяц и стал 10. Тогда уже кол-во символов поменяется. Так же с секундами минутами и т.п.

[v1s2222]

Не знаю, надо это тебе или нет, то может поможет:
ВСЕ функции для работы с временем/датой в делфи:
http://www.cyberguru.ru/programming/...t1-page11.html
Вот еще:
http://www.codenet.ru/progr/delphi/O...l/datetime.php

[Страдалецъ]

А вам не все равно откуда грузить данные в рич за сеанс, из файла или из секции? И в первом и втором случае вы будете из списка файлов/секций выбирать нужный и загружать, но в случае множества файлов имеем загромождение каталога, лишнюю трату дискового пространства на каждый файл да еще лишние телодвижения на открытие/закрытие нужного файла.
В моем-же варианте можно сразу грузить нужную секцию в рич:

Код:

1	Log.ReadSection('08.10.2010 19:07:52',RichEdit1.Lines);

[Мяфк]

Да как бы логи мне нужны, что бы просматривать их не програмно, а в обычном текстовике. Ну можно и такой вариант, посмотрю. Спасибо.

[Мяфк]

Пытался сделать, так: Если ричедит не изменяет текст, то лог не записывается. Вот код:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Timer1Timer(Sender: TObject); var s:string; begin  if (s<>form1.script.text) then begin  s:=form1.script.text;  Log := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Journal.log');  Log.WriteString(StartApp,DateTimeToStr(Now),s);  end  else  end;

Но логи всегда ведутся..

UPD. Решил проблему. Объявил глобальную переменную nado.
А дальше

Код:

1 2 3 4

procedure TForm1.scriptChange(Sender: TObject); begin nado := 1; end;

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Timer1Timer(Sender: TObject); var s:string; begin  if (nado = 1) then begin  s:=form1.script.text;  Log := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Journal.log');  Log.WriteString(StartApp,DateTimeToStr(Now),s);  nado := 0;  end  else  end;