如何连接两个指针的内容

[yeah]

有两个TMemroyStream,如
Stream1.loadformfile('C:\123.txt');
Stream2.loadfromfile('C:\222.txt');
从中对文件进行处理后，
我想将两个文件的内容合并起来，
Var S1,S2:string;
S1:=Pchar(stream1.memory);
s2:=pchar(Stream2.memory);
S1:=stirng(Pchar(S1))+String(PChar(S2));
结果S1仍然是未合并以前的内容。

[kxy]

Stream1.SetSize(StrLen(PChar(S1))+StrLen(PChar(s2));

[yeah]

还是不行:(

[yeah]

我曾这样，想使用两个PChar并用StrCat进行连接，结果还是不行。
Var Stream1,Stream2:TMemoryStream;
P1,P2:PChar;
begin
Stream1:=TMemoryStream.create;
Stream2:=TMemoryStream.create;
Stream1.Loadfromfile('C:\123.txt');
Stream2.Loadfromfile('C:\234.txt');
Getmem(P1,Stream1.Size);
Move(Stream1.Memory^,P1^,Stream1.Size);
P2:=pChar(Stream2.Memory);
ReAllocMem(P1,Stream1.size+Stream2.Size+1);
StrLcat(P1,P2,Strlen(P2));
Stream1.SetSize(StrLen(P1));
Move(P1^,Stream1.Memory^,strlen(P1));
FreeMem(P1);
这时Stream1的内容仍是原来未合并的内容。
end;

[kxy]

我用你的最初的方法试了,可以.
use Delphi 4.0

[barton]

tmemorystream的memory属性不可如楼上这样使用.正确的做法是:
1.使用TStream的CopyFrom功能;
2.SetLength(S1, Stream1.Size);
SetLength(S2, Stream2.Size);
Stream1.Read(S1[1], Stream1.Size);
Stream2.Read(s2[1], Stream2.Size);
S1 := S1 + S2;

[caili]

在D3中可以使用
S1:=copy(strpas(stream1.memory), 1, stream1.size);
S2:=copy(strpas(stream2.memory), 1, stream2.size);
S1:=S1+S2;

[barton]

我的方案经试验有效哦！

var
Strm1, Strm2: TMemoryStream;
S1, S2: string;
begin
Strm1 := TMemoryStream.Create;
Strm2 := TMemoryStream.Create;
Strm1.LoadFromFile(FileName1);
Strm2.LoadFromFile(FileName2);
SetLength(S1, Strm1.Size);
SetLength(S2, Strm2.Size);
Strm1.Read(S1[1], Strm1.Size);
Strm2.Read(s2[1], Strm2.Size);
S1 := S1 + S2;
Strm1.Free;
Strm2.Free;
ShowMessage(S1);
end;

[yeah]

两个Stream直接读入文件可以相加，但我的源码这这样的，对不起！
Var Stream1,Stream2:TMemoryStream;
P1,P2:PChar;
begin
Stream1:=TMemoryStream.create;
Stream2:=TMemoryStream.create;
Memo1.lines.savetostream(Stream1);
Stream2.Loadfromfile('C:\234.txt');
Getmem(P1,Stream1.Size);
Move(Stream1.Memory^,P1^,Stream1.Size);
P2:=pChar(Stream2.Memory);
ReAllocMem(P1,Stream1.size+Stream2.Size+1);
StrLcat(P1,P2,Strlen(P2));
Stream1.SetSize(StrLen(P1));
Move(P1^,Stream1.Memory^,strlen(P1));
FreeMem(P1);
这时，Stream1的内容应该是连接后的内容，而事实上，它只有原来的内容，请
帮我找出以上的错误。谢谢。

[yeah]

应该不是Position的问题，如果您能运行通过下面的过程，
那可能是我的系统有问题:-(

Var Stream1,Stream2:TMemoryStream;
iLength:Integer;
begin
Stream1:=TMemoryStream.Create;
Stream2:=TMemoryStream.Create;

//如果用这句，则不行
//Memo1.lines.SavetoStream(Stream1);

//这样可以
Stream1.Loadfromfile('C:\123.txt');

Stream2.loadfromfile('C:\234.txt');
Stream1.Postion:=0;
Stream2.Postion:=0;
iLength:=Stream1.Size;
Stream1.Setsize(iLength+Stream2.Size);
Stream1.Postion:=iLength;
Stream1.Copyfrom(Stream2,Stream2.Size);
Stream1.Position:=0;
Memo1.Lines.loadfromStream(Stream1);
Stream1.Free;
Stream2.Free;
end;

[kxy]

//如果用这句，则不行
//Memo1.lines.SavetoStream(Stream1);

我用这句也可以
把你的123.txt 和 234.txt e-mail到 [e-mail]

[yeah]

错了错了，我以为此问题有共性，我实际使用的是RXRichedit，请麻烦您再试试，帮我找出问题出在哪？

[yeah]

我试过，用RichEdit也不行。

[kxy]

I got It,(运行通过)
1) ReallocMem没有必要.
2) Stream1.Position 在Memo1.lines.savetostream(Stream1);
后发生变化,指向了最后.把Position改成0;
all things is OK.

[kxy]

是这样,
RxRichEdit
property Lines: TStrings read FRichEditStrings write SetRichEditStrings;
FRichEditStrings是TRichEditStrings类型的.
TRichEditStrings重载了SaveToStream.//写了什末没有仔细看.
SaveToStream和RxRichEdit的StreamForma有关.//你可以自己研究一下.
如果只是让程序按你所说的运行这样.
SaveToStream之前 Memo1.StreamFormat := sfPlainText;
作完了 Memo1.StreamFormat := sfDefault;
20分拿的好累.:)

[yeah]

kxy,分数先奉上了，的确少了点，但问题没有解决，如果按您所说，我会丢掉格式信息，干脆我重贴一张贴子，是要将一个文本与RTF合并或两个RTF文件合并，如果能解决，我给100分。

[Firing_Sky]

S1和S2都是TString，你又赋值S1为String+String=string，这当然不行了。

[barton]

哦，我明白了，TMemo.Lines和TRichMemo.Lines所含的内容是不一样的，
后者带有格式内容。我曾经想滤掉格式内容但没有成功。

[LaoZheng]

var s1:String;
s1=StrPas(Stream1.Memory)+StrPas(Stream2.Memory);