Prozedur aufrufen

[Nils_13]

hi,

du must die procedure noch eintragen (TForm1): procedure CopyFiles;

[Die Muhkuh]

Zitat von hehemande:

Hi,

Genau das habe ich bereits getan, aber er sagt weiterhin "Undefinierter bezeichner"

Gruß
Michael

Wie hast du die Procedure deklariert in der Unit1.

[hehemande]

Delphi-Quellcode:

procedure CopyFiles();
begin
  //Blabla
end;

[Die Muhkuh]

Aha,

schau dir nochmal meinen ersten Post an. Da steht wie du das deklarieren musst.

[semo]

im private bereich deklariert??? dann kann das nicht gehen. du musst den public bereich nehmen!

[hehemande]

Achso, sorry

Muss

Delphi-Quellcode:

TForm1 = class
private

vor alles, oder nur vor diese Prozedur?

[Nils_13]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    // --> Hier muss die procedure rein   <--
  end;

[semo]

Unit 1:

Delphi-Quellcode:

TForm1 = class
  private
  ...
  public
    procedure CopyFiles;
end;


...
procedure TForm1.CopyFiles;
begin
  //machwas
end;

Unit2:

Delphi-Quellcode:

uses Unit1;

....

procedure TForm2.Button1Click(Sender: TObject);
begin
  CopyFiles;
end;

[hehemande]

Jetzt habe ich folgenden Fehler:

Zitat:

[Fehler] Unit1.pas(17): Ungenügende Forward- oder External-Deklaration: 'TForm1.CopyFiles'

[Nils_13]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure CopyFiles;
  end;
----------------------------
procedure TForm1.CopyFiles;  //<--
begin
// mach was
end;