Winapi character and string function (10): lstrcpy-copy string

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} procedure tform1.button1click (Sender: tobject); var P, P1: pchar; begin P1: = 'delphi '; getmem (p, 256); lstrcpy (p, P1 ); showmessage (p); {Delphi} freemem (p); end; Procedure tform1.button2click (Sender: tobject); var P, P1, P2: pchar; begin P1: = 'delphi '; p2: = '000000'; P: = stralloc (2009); lstrcpy (p, P1); lstrcpy (p, P2); showmessage (P ); {2009} strdispose (p); end; Procedure tform1.button3click (Sender: tobject); var P: pchar; Buf: array [0 .. 255] of char; begin P: = 'delphi blog in case '; lstrcpy (BUF, P); showmessage (BUF); {Delphi blog in case} end; end.