使用 freepascal 在 tcomponent.tag 中存储和检索字符串

Question

我想存储这个字符串表达式 (oField.displayname+'='+varTostr(fieldbyname(ofield.fieldame).value)) 其中 ofield 是 tcomponent.tag 中数据集的 TField ？我正在使用 FreePascal

医学

Answer 1

TComponent 的 Tag 字段是 PtrInt 类型，它足够大，可以存储一个指针，包括字符串的内存地址。您可以使用标签来存储动态分配的字符串的地址。

procedure TForm1.FormCreate(Sender: TObject);
var
  MyString: PChar;
begin
  MyString := StrAlloc(100);
  StrPCopy(MyString, 'Hello, Free Pascal!');
  Label1.Tag := PtrInt(MyString);
  Edit1.Text := PChar(Label1.Tag);
  StrDispose(PChar(Label1.Tag));
end;

确保内存始终被正确释放，以避免泄漏或悬空指针