我不行了，求救如何在TStream类型的变量内存前面插入1个txt文件得内容？

Question

在stream后面追加txt文件内容也可以

Answer 1

先把Txt的读到流变量里，再读另一个的。

Answer 2

procedure xxxx(var ss1:TMemoryStream);
var
  ss2:TMemoryStream
begin
  ss2:=TMemoryStream.Create;
  ss2.loadfromfile(fileName);
  ss1.seek(s1.size,soFromBeginning);
  ss1.copyfrom(s2,s2.size);
end;
  ss2.free;

Answer 3

简单
procedure xxxx(var ss1:TMemoryStream);
var
  ss2:TMemoryStream
begin
  ss2:=TMemoryStream.Create;
  ss2.loadfromfile(fileName);
  ss1.seek(s1.size,soFromBeginning);
  ss1.copyfrom(s2,s2.size);
  ss2.free;
end;