Kopieren, Suchen, Einfügen ??

[PhöniX]

Delphi-Quellcode:

unit copy_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;

type
  TFormCopy = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function DoFileWork(
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
): Integer;
  public
   function DoFileWork( //<---------------------- FEHLER HIER!!!
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
): Integer;
  end;

var
  FormCopy: TFormCopy;

implementation

{$R *.DFM}

procedure TFormCopy.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 25 to 30 do
begin;
 DoFileWork(Self.Handle, FO_DELETE, strlFiles, nil, FOF_ALLOWUNDO);
end;
end;

end.

Und nun entsteht der Fehler an der markierten Stelle:
Die überladene Prozedur 'DoFileWork' muss mit der Direktive 'overload' gekennzeichnet sein.