delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放

delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放

官方Delphi 学习QQ群： 682628230（三千人）\n

频道

delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放

procedure TForm1.Button4Click(Sender: TObject);

var

myString:PChar;

Begin

//SetLength (S1, 100);

//GetWindowText (Handle, PChar (S1), Length (S1));

//Button1.Caption := S1;

GetMem(myString,1024);//开辟1024个字节

GetWindowText (Handle, myString, 100);

Button4.Caption :=format('%s:%d',[myString,strlen(myString)]);

FreeMem(myString,1024);//释放

end;

推荐分享

推荐分享

图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！

Copyright © 2014 DelphiW.com 开发源码文档技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.04571795463562 seconds