delphi – 字符串到TStream

发布时间：2020-12-15 04:23:08 所属栏目：大数据来源：网络整理

导读：我正在尝试将字符串转换为TStream.我的下面的代码在CopyFrom行上给我一个“抽象错误”消息.我在这里碰壁砖,有关如何解决这个问题的想法吗？ procedure StringToStream(const AString: string; out AStream: TStream);var SS: TStringStream;begin SS := TStr

我正在尝试将字符串转换为TStream.我的下面的代码在CopyFrom行上给我一个“抽象错误”消息.我在这里碰壁砖,有关如何解决这个问题的想法吗？

procedure StringToStream(const AString: string; out AStream: TStream);
var
  SS: TStringStream;
begin
  SS := TStringStream.Create(AString);
  try
    SS.Position := 0;
    AStream.CopyFrom(SS,SS.Size);  //This is where the "Abstract Error" gets thrown
  finally
    SS.Free;
  end;
end;

解决方法

AStream被声明为OUT参数,这意味着它不会在过程开始时分配,并且过程负责为其分配适当的值.

如果我解释你的代码是正确的,你应该省略OUT并确保在调用例程时正确实例化AStream.

显示StringToStream调用的更多代码可能会提供更多线索.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!