Пытался сделать, так: Если ричедит не изменяет текст, то лог не записывается. Вот код:
Код:
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 ;
|