System. New, system. Dispose-apply for and release memory for a pointer

Example:

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; button3: tbutton; Procedure button1click (Sender: tobject); Procedure button2click (Sender: tobject); Procedure button3click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} type tmyrec = record {definition structure} Name: String [8]; age: word; end; pmyrec = ^ tmyrec; {definition structure pointer; delphi generally defines it before the structure. You can} {if the structure is used directly, no pointer is used} procedure tform1.button1click (Sender: tobject); var R: tmyrec; Begin R. name: = 'zhang san'; R. age: = 99; showmessage (format ('% S % d', [R. name, R. age]); {Zhang San 99 years old} end; {If structure pointer is used} procedure tform1.button2click (Sender: tobject); var PR: pmyrec; begin new (PR ); {memory allocation} PR ^. name: = 'zhang san'; PR ^. age: = 99; showmessage (format ('% S % d', [pr ^. name, PR ^. age]); {Zhang San 99 years old} dispose (PR); {release memory} end; {Delphi allows simplified structure} procedure tform1.button3click (Sender: tobject ); vaR PR: pmyrec; begin new (PR); PR. name: = 'zhang san'; PR. age: = 99; showmessage (format ('% S % d', [pr. name, PR. age]); {Zhang San 99 years old} dispose (PR); end.
 
   
 

Public Function directory under System Unit