아래 함수로 두 파일을 비교해 보세요...



그리고 기능이 먹통이 됐다는데 어떤 기능인지...?

아마도 다른곳에서 사용된 폼유닛을 그대로 복사해서 쓰신것 같은데...

그럴땐 이벤트들을 제대로 설정해야 동작을 합니다.



function CompareFile(SourceFilename, DestFilename: string): Boolean;

var

SourceFile, DestFile: TextFile;

SourceStr, DestStr: string;

begin

AssignFile(SourceFile, SourceFilename);

AssignFile(DestFile, DestFilename);

Reset(SourceFile);

Reset(DestFile);

Result := False;

if FileSize(SourceFile) = FileSize(DestFile) then

begin

Result := True;

while not Eof(SourceFile) do

begin

ReadLn(SourceFile, SourceStr);

ReadLn(DestFile, DestStr);

if SourceStr <> DestStr then

begin

Result := False;

Break;

end;

end;

end;

CloseFile(SourceFile);

CloseFile(DestFile);

end;



김초보 wrote:

> .pas 두개 파일을 비교하려구 합니다....

> 업데이트 하면서 변경을 했는데. 건들지 않는 곳에서 기능 먹통!!!

>

> 한쪽에서는 실행되는데... 한쪽에서는 무응답~

> 아무리 비교하여도 틀린곳도 없는것 같구

> 이유를 모르겠네요...............

> 유틸리티나 방법좀 소개해주세요.