Prozedur aufrufen

[Die Muhkuh]

Hi,

ich gehe mal von aus, dass das so aussieht:

Delphi-Quellcode:

implementation

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

procedure CopyFiles;
begin
  mach was...
end;

Wenn dann sollte das so aussehen:

Delphi-Quellcode:

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

implementation

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

procedure TForm1.CopyFiles;
begin
  machwas
end;

[edit] Erst lesen, dann schreiben.

Wenn du in Unit2 (Form2) die Procedure CopyFiles aus der Unit1 (Form1) aufrufen willst, muss du das so machen:

Delphi-Quellcode:

// Unit2
uses {blablabla}, Unit1;

// Aufrufen
Form1.CopyFiles;

[/edit]