在FreePascal中通过TComponent.Tag存储指定字符串表达式的方法

TComponent.Tag的默认类型是NativeInt（整数类型），无法直接存储字符串，需要通过指针转换或对象存储的方式间接实现，以下是两种常用方案：

方案一：使用PChar指针存储字符串 #

这种方式轻量高效，适合存储单个字符串，需要手动管理内存避免泄漏。

存储字符串到Tag #

var
  sExpr: string;
  pExpr: PChar;
begin
  // 生成目标字符串表达式（修正拼写错误：ofield.fieldame → oField.FieldName）
  sExpr := oField.DisplayName + '=' + VarToStr(FieldByName(oField.FieldName).Value);
  
  // 为字符串分配内存（包含结束符）
  pExpr := StrNew(PChar(sExpr));
  
  // 将指针转换为NativeInt类型存入Tag
  YourComponent.Tag := NativeInt(pExpr);
end;

从Tag读取并释放字符串 #

var
  pExpr: PChar;
  sExpr: string;
begin
  pExpr := PChar(YourComponent.Tag);
  if pExpr <> nil then
  begin
    // 转换为字符串使用
    sExpr := string(pExpr);
    
    // 使用完成后释放内存，避免泄漏
    StrDispose(pExpr);
    YourComponent.Tag := 0; // 清空Tag，防止重复释放
  end;
end;

方案二：使用TStringList对象存储字符串 #

这种方式更灵活，支持存储多行文本，对象管理更直观，同样需要手动释放对象。

存储字符串到Tag #

var
  strList: TStringList;
begin
  strList := TStringList.Create;
  // 将表达式存入TStringList
  strList.Text := oField.DisplayName + '=' + VarToStr(FieldByName(oField.FieldName).Value);
  
  // 将对象指针转换为NativeInt存入Tag
  YourComponent.Tag := NativeInt(strList);
end;

从Tag读取并释放对象 #

var
  strList: TStringList;
begin
  strList := TStringList(YourComponent.Tag);
  if Assigned(strList) then
  begin
    // 通过Text属性获取存储的字符串
    ShowMessage(strList.Text);
    
    // 使用完成后释放对象
    strList.Free;
    YourComponent.Tag := 0;
  end;
end;

关键注意事项 #

• 内存管理：无论使用哪种方案，都必须在组件销毁（如OnDestroy事件）或不再需要字符串时释放内存/对象，否则会造成内存泄漏。
• 重复赋值处理：如果需要多次给Tag赋值，需先检查Tag是否已有值，先释放旧的内存/对象再存储新内容。
• 拼写修正：原表达式中的ofield.fieldame是拼写错误，应改为oField.FieldName才能正确获取字段名。

内容的提问来源于stack exchange，提问作者MedHome