델파이 리팩토링 연습 문제

밑의 함수는 지인으로 부터 받은 소스에 포함되어 있던 함수중 하나이다.

이 함수의 역할은 컴에 설치된 문서(워드, 엑셀, 아래아한글 등등) 타입들을 알아내고, 이 정보들을 바탕으로 FileOpen 다이얼로그의 filter 속성으로 사용할 문자열을 얻어 내는 것이다. 아래는 그 소스인데, 소스 구조는 매우 간단하다.

function GetFileFilter:String;
var
    checkVal:OleVariant;
begin
    Result := 'Image All(*.jpg;*.jpeg;*.gif;*.png;*.bmp;*.pcx;*.tif;*.tiff;*.psd;*.pdd)|*.jpg;*.jpeg;*.gif;*.png;*.bmp;*.pcx;*.tif;*.tiff;*.psd;*.pdd|';
   
    try
        checkVal := CreateComObject(CLASS_HwpCtrl);
        checkVal := Unassigned;
        Result := Result + 'HWP Document(*.hwp)|*.hwp|';
    except
        RemoveFileDocKind(dkHwp);
    end;

    try
        checkVal := CreateOleObject('WORD.Application');
        checkVal := Unassigned;
        Result := Result + 'MS-Word(*.doc)|*.doc|';
    except
        RemoveFileDocKind(dkMsWord);
    end;

    try
        checkVal := CreateOleObject('Excel.Application');
        checkVal := Unassigned;
        Result := Result + 'MS-Excel(*.xls)|*.xls|';
    except
        RemoveFileDocKind(dkMsExcel);
    end;

    try
        checkVal := CreateOleObject('PowerPoint.Application');
        checkVal := Unassigned;
        Result := Result + 'PowerPoint(*.ppt)|*.ppt|';
    except
        RemoveFileDocKind(dkMsPPt);
    end;

    try
        checkVal := CreateComObject(CLASS_IF_);
        checkVal := Unassigned;
        Result := Result + 'HunminWord Document(*.gul)|*.gul|';
    except
        RemoveFileDocKind(dkHun);
    end;

    Result := Result + 'Adobo PDF File(*.pdf)|*.pdf|PostScript(*.ps)|*.ps|Encapsulated PostScript(*.eps)|*.eps|';
end;


그런데 이 함수는 몇가지 문제점이 있다.

첫번째로 모양이 매우 비슷한 try...except 구문이 여러번 반복된다는 것이다. 반복되는 구조의 코드는 제거함이 옳을 것이다.

두번째로 후일 새로운 문서 타입을 추가해야할 때, 이 try except 구문이 또 반복 추가되고, 새 문서 타입 추가하기가 그리 쉽지 않다.

이 두문제를 해결할 수 있도록 이 코드를 정리해 보자. 리팩토링이란 기존 코드의 기능은 그대로 유지하면서도, 더욱 깔끔하고 정갈한 구조를 가지는 코드로 변경하는 작업이다. 이 코드를 깔끔하게 정리해 주시라. 가장 잘 정리한 사람에게는 큰절로 보답함과 더불어서, 공약일 가능성이 매우 농후하지만, 대구에 방문시 귀빈 대접을 받을 수 있는 영광을 드리도록 하겠다.

내가 정리한 코드는 조만간 올리도록 하겠다. 혹시 나보다 더 잘 코드를 정리한 사람이 있다면 부끄러워서 내것은 못올릴 수도 있겠다.