1

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;
4

1 に答える 1

2

の引数としてList1Procandのみを記述してください。つまり、書くList2ProcStringListCompare

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

それ以外の

iFinalStringList := StringListCompare(iNewFilesStringList,
  iExistingFilesStringList, nil, nil, List1Proc(iValue, @iData),
  List2Proc(iValue, @iData), False);
于 2012-11-21T12:53:04.803 に答える