在Delphi 中将TMemoryStream转换为'String'

var
  MemoryStream: TMemoryStream;
  StringStream: TStringStream;
  ResultString: string;
begin
  // 创建TMemoryStream对象，并写入数据
  MemoryStream := TMemoryStream.Create;
  try
    // 写入数据到MemoryStream
    // ...

    // 创建TStringStream对象
    StringStream := TStringStream.Create('');
    try
      // 将MemoryStream数据读取到StringStream中
      StringStream.CopyFrom(MemoryStream, MemoryStream.Size);

      // 提取字符串数据
      ResultString := StringStream.DataString;
    finally
      StringStream.Free;
    end;
  finally
    MemoryStream.Free;
  end;

  // 使用ResultString进行后续操作
  // ...
end;