[SOLVED] TStringList.OnChange, wie nutzen?

[mark332]

Hallo liebe Community,

heute habe ich mal eine kleine Fragen zwischendurch,

ich bräuchte eine prozedur, die ausgelöst wird, wenn sich eine StringList in meinem Programm ändert.

http://www.freepascal.org/docs-html/rtl ... glist.html steht, dass es ein OnChange bzw., auch ein OnChanging Event gibt.

Leider kann mal das anscheinend nicht so nutzen:

Code: Alles auswählen

 
procedure MyListChange(Sender: TObject);
begin
//bla
end;
 

Wie muss ich die prozedur zuweisen, um diese nutzen zu können ?


MfG mark332

[wp_xyz]

Ich denke, dass es so gehen könnte:

Code: Alles auswählen

 
procedure TForm1.StringListChange(Sender:Tobject);
begin
  LogMsg(Format('Stringliste geändert um %s', [FormatDateTime('hh:nn:dd', now)]));
  // oder was auch immer du machen willst, wenn sich die Stringliste ändert
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  L := TStringList.Create;
  L.OnChange := @StringListChange;
end;
 

[mark332]

Ich denke, dass es so gehen könnte:

Code: Alles auswählen

 
procedure TForm1.StringListChange(Sender:Tobject);
begin
  LogMsg(Format('Stringliste geändert um %s', [FormatDateTime('hh:nn:dd', now)]));
  // oder was auch immer du machen willst, wenn sich die Stringliste ändert
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  L := TStringList.Create;
  L.OnChange := @StringListChange;
end;
 

wer'd ich mal im Laufe des Abends testen (Lan-Party )


EDIT:

Hat funktioniert :DD Danke

MfG

[theo]

Noch ein kleiner Trick, wie das einfacher geht. Das hinschreiben:

Code: Alles auswählen

var L:TStringList;
begin
  L := TStringList.Create;
  L.OnChange:=

Den Textcursor hinter "L.OnChange:=" setzen und Shift+Ctrl+C drücken.
Staunen!