[utro35]

Здравствуйте!
Подскажите пожалуйста с кодом: лог должен содержать статистику содержимого эдитов посекундно (поминутно), а также начало и конец работы.

[angvelem]

В OnCreate открываешь/создаёшь файл лога, в OnDestroy закрываешь. Кидаешь Timer на форму, в событии OnTimer делаешь опрос Edit-ов и сохраняешь в файл.

[AlexSku]

Только если посекундно, то в таймере надо ставить интервал не 1000 (т.к. будет теряться точность), а поменьше, напр., 100 и записывать в тот момент, как наступит новая секунда (секунду брать из Now).

[utro35]

Сообщение от angvelem

В OnCreate открываешь/создаёшь файл лога, в OnDestroy закрываешь. Кидаешь Timer на форму, в событии OnTimer делаешь опрос Edit-ов и сохраняешь в файл.

А если не в тягость, можно пожалуйста код...

[angvelem]

Код:

var
  SL : TStringList;

procedure TForm1.FormCreate(Sender : TObject);
begin
 SL := TStringList.Create;
end;

procedure Form1.FormDestroy(Sender : TObject);
begin
  SL.SaveToFile('Log.log');
  SL.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SL.Add(Format('%s - %s', [DateTimeToStr(Now), Edit1.Text]));
end;

Вот черновой набросок написанный на "коленке", так что лучше не пытаться копировать, а понять смысл.

[utro35]

А какая команда служит для вывода этого лога в мемо?

[angvelem]

Можно и так:

Код:

  Memo1.Lines.Clear;
  Memo1.Lines.Add(SL.Text);

Лог может получиться очень большим.

Если нужно постоянно выводить информацию в Memo, то так, наверное, будет лучше:

Код:

procedure Form1.FormDestroy(Sender : TObject);
begin
  Memo1.Lines.SaveToFile('Log.log');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add(Format('%s - %s', [DateTimeToStr(Now), Edit1.Text]));
end;