Как отследить начало и конец процесса?

[utro35]

Здравствуйте!
Например: нажимаю кнопку - старт: это начало процесса, кнопка стоп: завершение (или самоотключение по условию). Эти две даты должны быть выведены в лог (время системное).
Спасибо.

[TorrentTor]

Должно помочь

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=Memo1.Text+DateToStr(date)+'   '+TimeToStr(time)+#13#10
end;

[utro35]

Спасибо! С Рождеством!

[Serge_Bliznykov]

Вы уж извините меня, но вместо

Memo1.Text:=Memo1.Text+

я бы КРАЙНЕ НАСТОЯТЕЛЬНО рекомендовал использовать метод .Add() или .Append():

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Append( DateToStr(date)+'   '+TimeToStr(time) );
end;

[denisbrain]

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

Вы уж извините меня, но вместо

я бы КРАЙНЕ НАСТОЯТЕЛЬНО рекомендовал использовать метод .Add() или .Append():

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Append( DateToStr(date)+'   '+TimeToStr(time) );
end;

begin
  log1.lines.add(Datetimetostr(now)+':'+'Запуск программы');
end;

[TorrentTor]

Serge_Bliznykov, верно подмечено, эх учится мне и учится до гуру

[Serge_Bliznykov]

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

верно подмечено, эх учится мне и учится до гуру

ничего страшного. дорогу осилит идущий.
В следующий раз Вы уже будете помнить, что Memo.Lines - это объект класса TString(TStringList), который обладает кучей свойств и методов родительских классов. Вы использовали метод Text, но не обратили внимание, что там есть более подходящие в данном случае методы...

Успехов в учёбе.
Если не будете останавливаться - обязательно станете Гуру.

[TorrentTor]

Будем стараться и вправду запомню
Спасибо за наставление!