Kopieren, Suchen, Einfügen ??

[PhöniX]

Hä wie jetzt?

[PhöniX]

Hä wie jetzt?

[Stanlay Hanks]

Hast du das hier

Delphi-Quellcode:

function DoFileWork(
  aWnd: HWND; aOperation: UINT; aFrom, aTo: TStrings; Flags: FILEOP_FLAGS
): Integer;

auch unter private oder public stehen?

[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.

[Stanlay Hanks]

Ich hab geschrieben: unter Private oder public. Du musst dich schon für eins entscheiden

Lösch eine der Deklarationen, dass sollte es hinhauen.

[PhöniX]

OK..
DoFileWork(Self.Handle, FO_DELETE, strlFiles, nil, FOF_ALLOWUNDO); Wie muss man die Datei in strlFiles schreiben??
In ''s nicht, oder doch??