delphi GetMem使用

Posted 2020-11-20 yangxuming

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi GetMem使用相关的知识，希望对你有一定的参考价值。

procedure TForm12.Button2Click(Sender: TObject);
var
  mystring: PChar;
begin
  GetMem(mystring, 1024);
  GetWindowText(Button1.Handle,mystring,100);
  Label1.Caption := Format(‘%s:%d‘, [mystring, strlen(mystring)]);
  FreeMem(mystring);
end;

以上是关于delphi GetMem使用的主要内容，如果未能解决你的问题，请参考以下文章