摘要:
先来段代码typeMyString=AnsiString;PMyChar=PAnsiChar;procedureTForm2.Button2Click(Sender:TObject);varp:PMyChar;s,s2:MyString;beginself.Caption:='frmTest';//7位的字符串p:=GetCaption;s2:=p;//这是时候s2为frmTesShowMessage(s2); //*****显示出来为frmTesend;functionTForm2.GetCaption:PMyChar;vars1,s2:MyString;begins2:=M 阅读全文