Q&A

  • 텍스트파일 붙이기
두개의 텍스트 파일을 붙여서 다른 텍스트 파이로 합치려 합니다.
어떻게 구현이 가능할까요?

궁금합니다. 미리 감사드립니다.
1  COMMENTS
  • Profile
    한휘 2003.01.13 19:00
    procedure TForm1.Button1Click(Sender: TObject);
      var TFS , RTFS1, RTFS2 : TFileStream;
    begin


      TFS := TFileStream.Create('C.txt', fmCreate );    //fmOpenWrite

      RTFS1 := TFileStream.Create('a.txt', fmOpenRead );    //fmOpenWrite
      RTFS2 := TFileStream.Create('b.txt', fmOpenRead );    //fmOpenWrite

      TFS.CopyFrom(RTFS1 , RTFS1.Size);
      TFS.CopyFrom(RTFS2 , RTFS2.Size);

      RTFS2.Free;
      RTFS1.Free;
      TFS.Free;


    end;