왕초보 wrote:

> 기존의 파일에다가 다른 파일의 같은 형식의 다른 내용을 기존의 파일 밑에다

> 부칠려고 하는 데 어떻게 하는지 모르겠네요. 아시는 분은 연락 주십시오.

> 문제는 다른 파일의 내용은 년월일자,ID,...의 형식으로 매일 누적되어서 다운로드

> 되고 있습니다.물론 기존의 파일도 1년치의 파일 내용이 있습니다.

> 여기서 기존의 파일도 같은 형식의 1년치 데이타가 있으며, 여기 아래에다가 매일 다른

> 파일의 년월일자를 체크해서 기존의 파일에 없으면 기존의 파일에 부칠려고 합니다.

> 부디 아시는 분은 많은 조언을 바라며 더불어 구현 간단한 소스까지 첨부해 주시면

> 고맙겠습니다.





회사에서 어떤 분이 여쭈어서 한번 해 봤는데

역시 FileStream은 좋더군요..

아래 방법이 더 낳을거 같아요.



function FileAppend( Src, Dest: String ):Boolean;

var

SrcFile, DestFile: TFileStream;

begin

SrcFile := TFileStream.Create( Src, fmOpenWrite);

DestFile := TFileStream.Create( Dest, fmOpenRead );

try

SrcFile.Position:= SrcFile.Size;

SrcFile.CopyFrom( DestFile, DestFile.Size );

except

Result:= False;

SrcFile.Free;

DestFile.Free;

Exit;

end;

Result:= True;

SrcFile.Free;

DestFile.Free;

end;







procedure TForm1.Button1Click(Sender: TObject);

var ret: Boolean;

begin

ret:= FileAppend('C:공유a.txt', 'C:공유b.txt');

if ret then ShowMessage('파일에 추가 성공')

else ShowMessage('파일에 추가 실패');

end;



그럼, 즐거운 프로그래밍 하시길~