关于文件流的问题~~~~~~

                            
将一文件添加到另一个文件的尾部~~   
  Function   Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;  
  var  
  Target,Source:TFileStream;  
  MyFileSize:integer;  
  begin  
  try  
  Source:=TFileStream.Create(SourceFile,fmOpenRead   or   fmShareDenyNone);  
  Target:=TFileStream.Create(TargetFile,fmOpenWrite   or   fmShareDenyNone);  
  try  
  Target.Seek(0,soFromEnd);//往尾部添加资源  
  Target.CopyFrom(Source,0);  
  MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小,并写入辅程尾部  
  Target.Write(MyFileSize,sizeof(MyFileSize));  
  finally  
  Target.Free;  
  Source.Free;  
  end;  
  except  
  Result:=False;  
  close(Target);  
  Exit;  
  end;  
  Result:=True;  
  end;  
  调用:  
  Cjt_AddtoFile('d:\11.txt','d:\22.txt');  
  memo1.Lines.LoadFromFile('d:\22.txt');  
  我用文件流的方法将一个文件添加到另一个文件的尾部~~~查看文件已经添加成功~~  
  但在memo中加载的文件却没有添加~~~这是为什么啊``我想让memo     中也显示添加后的文件啊``

查看回复