https://wiki.soldat.pl/index.php?action=history&feed=atom&title=TStringList.OnChanging 2026-05-03T09:56:20Z Revision history for this page on the wiki MediaWiki 1.30.0 https://wiki.soldat.pl/index.php?title=TStringList.OnChanging&diff=1188&oldid=prev 2013-08-24T18:15:57Z

<p>new page</p> <p><b>New page</b></p><div> '''property OnChanging: [[TNotifyEvent]]'''<br /> Access mode: RW<br /> <br /> ==Description==<br /> {{link|TStringList|OnChanging}} can be assigned to respond to changes that will occurred in the list. The handler is called whenever strings will be added, moved, modified or deleted from the list.<br /> <br /> The {{link|TStringList|OnChanging}} event is triggered before the modification will take place. When the modification has happened, an {{link|TStringList|OnChange}} event occurs.<br /> <br /> ==Example==<br /> Following example tracks changes made to the list.<br /> &lt;syntaxhighlight lang=&quot;pascal&quot;&gt;<br /> var<br /> s: TStringList;<br /> Count1,Count2: integer;<br /> <br /> procedure Before(Sender: TObject);<br /> begin<br /> Count1 := TStringList(Sender).Count;<br /> end;<br /> <br /> procedure After(Sender: TObject);<br /> begin<br /> Count2 := TStringList(Sender).Count;<br /> <br /> if Count2 &gt; Count1 then<br /> WriteLn('String added')<br /> else if Count2 &lt; Count1 then<br /> WriteLn('String removed')<br /> else<br /> WriteLn('Content modified or moved');<br /> end; <br /> <br /> begin<br /> s := File.CreateStringList();<br /> <br /> s.OnChanging := @Before;<br /> s.OnChange := @After;<br /> <br /> s.Add('a'); // String added<br /> s.Add('b'); // String added<br /> s.Delete(1); // String removed<br /> s[0] := 'a2'; // String modified or moved<br /> <br /> s.Free;<br /> end.<br /> &lt;/syntaxhighlight&gt;<br /> <br /> [[Category:TStringList]]</div>

Mighty