|
(1) integer 于 Object
cmbBox.Items.AddObject(A_Value,pointer(I_Value));
I_Ret:=cmbBox.itemindex;
I_perID:=integer(cmbBox.Items.Objects[I_Ret]);
(2) string 于 Object
A_Code:='custID';
ComboBox1.Items.AddObject('客户ID',TObject(A_Code));
A_Value:=string(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
(3) TString 和 PChar 的相互转化
var bb:pchar;
bb:=Memo1.Lines.GetText; // TStrings ==> pchar
Memo2.Lines.SetText(bb); // pchar ==> TStrings | 
转播
