Tstrings's AddObject method application, and mutual transformation with PCHAR

(1) Integer in Object

CMBBOX.Items.adDObject (a_value, pointer); i_ret: = cmbox.itemindex; i_perid: = integer (cmbbox.Items.Objects [i_ret]);

(2) String over Object

A_code: = 'CustId'; ComboBox1.Items.AddObject ('Customer ID', TOBJECT (A_CODE));

A_Value: = string (ComboBox1.Items.Objects [ComboBox1.ItemIndex]); (3) TSTRING and PCHAR Dismisters VAR BB: PCHAR; BB: = MEMO1.LINES.GETTEXT; // Tstrings ==> Pchar Memo2.Lines .SETTEXT (BB); // Pchar ==> Tstrings