호환되지 않는 형식 수정 방법

Question

Mason Wheeler는 문자열 목록을 비교하는 매우 좋은 절차를 작성했지만 콜백 절차 TStringCompareProc을 작성하는 방법을 이해하지 못합니다. 어떤 사람이 이것을 컴파일하도록 도울 수 있습니까?

type 
    TStringCompareProc = procedure(const value: string; const data: TObject) of object; 
    procedure StringListCompare(List1, List2: TStringList; matchProc: TStringEqualProc; 
            list1Proc, list2Proc: TStringCompareProc; presorted: boolean = false); 

    Usage: 

    procedure TForm1.MatchProc(const value: string; const data: TObject); 
    // match is found between the two lists 
    begin 
    // 
    end; 

    procedure TForm1.List1Proc(const value: string; const data: TObject); 
    // when the first list contains a string not in the second list 
    begin 
    // 
    end; 

    procedure TForm1.List2Proc(const value: string; const data: TObject); 
    // when the second list contains a string not in the first list 
    begin 
    // 
    end; 

    procedure TForm1.Compare1Click(Sender: TObject); 
    var 
    MatchProc: TStringEqualProc; 
    List1Proc: TStringCompareProc; 
    List2Proc: TStringCompareProc; 
    iValue: string; 
    iData: ^PString; 
    begin 
    iFinalStringList := StringListCompare(iNewFilesStringList, iExistingFilesStringList, 
       nil, nil, List1Proc(iValue, @iData), List2Proc(iValue, @iData), False); <- [DCC Error] Unit1.pas(1336): E2010 Incompatible types: 'TStringCompareProc' and 'procedure, untyped pointer or untyped parameter' 
    end; 

Answer 1

만 StringListCompare의 인수로 List1Proc 및 List2Proc를 작성해야합니다. 즉,

iFinalStringList := StringListCompare(iNewFilesStringList, 
    iExistingFilesStringList, nil, nil, List1Proc, List2Proc, False); 

대신에 StackOverflow에서

iFinalStringList := StringListCompare(iNewFilesStringList, 
    iExistingFilesStringList, nil, nil, List1Proc(iValue, @iData), 
    List2Proc(iValue, @iData), False);