delphi – 字符串到TStream

我正在尝试将字符串转换为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调用的更多代码可能会提供更多线索.

原文地址：https://www.jb51.cc/delphi/101677.html