zeit vor den log

[Sharky]

Zitat von glkbkk:

...nun wird aber gechanget,....

Warum nicht einfach das .OnChange während der Änderung abschalten?

Delphi-Quellcode:

procedure TForm1.memo_logChange(Sender: TObject);
var
  onchange : TNotifyEvent;
  a : Integer;
begin
  onChange := (Sender As TMemo).OnChange;  // "Merken" der Onchange-Procedure
  (Sender As TMemo).OnChange := nil;  // OnChange abschalten
  a:=memo_log.Lines.Count-1;
  memo_log.Lines[a]:=datetimetostr(now)+':   '+memo_log.Lines[a];
  (Sender As TMemo).OnChange := onChange;  // OnChange-Procedure wieder zuweisen.
end;