, at tilføje en proceduremæssig type til en tlist, eller tstringlist, her er den kode, som jeg plejede at opnå det:,,, enhed enhed1;,,, grænseflade,, anvender, vinduer, beskeder, sysutils, klasser, grafik, kontrol, formularer, dialoger,,, stdctrls,,,,,,,,, tform1 = klasse (tform), listbox1: tlistbox;,, button1: tbutton;,, procedure button1click (afsender: tobject);,, procedure listbox1click (afsender: tobject), private, (private erklæringer), offentlig, {offentlige erklæringer},,,,,, var, form1: tform1;,,, gennemførelse,,, ($r *. dfm},,,,,,,, teventobject = klasse, beskyttet, //ændringer (for beginers kun), fevent: tnotifyevent;,, der er offentliggjort, og /ændringer (for begine(rs), ejendom, begivenhed: tnotifyevent læse fevent skrive fevent,,,,,,,,,,, //at tilføje til listen, procedure tform1. button1click (afsender: tobject), var en: teventobject;, begynder, en: = teventobject skabe;,, en begivenhed.: = button1click; //eller tnotifyevent,, listbox1. punkter. addobject ('button1click, a);,,,,,,,,, //til begivenheden, procedure tform1. listbox1click (afsender: tobject), begynder, hvis listbox1. itemindex < > - 1 -, teventobject (listbox1. poster. genstande [listbox1. itemindex]). hændelse (selv),,,,,,,.,,, (for beginers), hvis du vil addapt denne kodeks til andre procedurer og /eller proceduremæssig art, bare ændre dele denne stat ændringer her.hvordan fungerer det helt roligt, ven, det skaber en genstand, hvis eneste formål er at holde tilfælde indtil ringede.i dette tilfælde genstande er ikke frigivet nogen steder, da det bare var en demostration i det virkelige liv, bliver du nødt til at befri de genstande, et eller andet sted (onclose, onclosequery i en form eller i en destructor), (for criticist), jeg ville bare have en liste over begivenheder af en fast form, det ved du vil råbe, at rtti kan være en bedre løsning, er det måske, men jeg ved ikke, hvordan rtti virker så jeg tyede til et objekt til at holde den begivenhed, og da det er gyldig, måske den ekstra hukommelse er woth.,