Prozedur aufrufen

[hehemande]

Hallo zusammen,

Nachdem ich es nun dank eurer Hilfe geschafft habe, einen Timer auf einer anderen Form zu aktivieren, möchte ich nun gerne eine Prozedur (CopyFiles) auf einer anderen Form aufrufen.
Ich habe es folgendermaßen versucht:

Delphi-Quellcode:

Form1.CopyFiles;

Das hat aber nicht so richtig geklappt :-(

Vielen Dank für eure Hilfe
Michael

[malo]

Hat nicht geklappt. Sorry, aber ich hab meine Glaskugel vergessen. Gibt es eine Fehlermeldung? Wenn ja, welche?

[hehemande]

Zitat:

Undefinierter Bezeichner:CopyFiles

[Nils_13]

Den Befehl gibt es nicht.

[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] :wall: 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]

[semo]

die unit in welcher sich der befehl befindet in "uses" der Unit einbinden wo du den Befehl aufrufen willst

[hehemande]

Hi,

Nein, so sieht es nicht aus, weil in deinem Beispiel Versucht wird, von Form1 aus eine Prozedur auf der gleichen Form aufzurufen.
Ich versuche aber, von Form2 aus auf die Prozedur auf Form1 zuzugreifen.

Danke
Michael

[hehemande]

Zitat:

Zitat von computer-glossar.de

die unit in welcher sich der befehl befindet in "uses" der Unit einbinden wo du den Befehl aufrufen willst

Habe ich gemacht.

Gruß
Michael

[Die Muhkuh]

Zitat:

Zitat von hehemande

Hi,

Nein, so sieht es nicht aus, weil in deinem Beispiel Versucht wird, von Form1 aus eine Prozedur auf der gleichen Form aufzurufen.
Ich versuche aber, von Form2 aus auf die Prozedur auf Form1 zuzugreifen.

Danke
Michael

Jupp, ich hab nicht richtig gelesen. Ich habs grade im Edit im vorherigen Post geschrieben. Einfach dort nochmal gucken :-)

[hehemande]

Hi,

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

Gruß
Michael

[Nils_13]

hi,

du must die procedure noch eintragen (TForm1):

Delphi-Quellcode:

procedure CopyFiles;

[Die Muhkuh]

Zitat:

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;

[semo]

das bedeutet dass du die Prozedur zwar im interface bereich angegeben hast,
aber die procedure nicht im implementation aufführst

edit: Nils_13 hat dir das Beispiel mal erläutert...

[hehemande]

Hmm, genau das habe ich gemacht...

[Nils_13]

Kannst ja dein Programm zur Verfügung stellen ! Dann können wir dein Problem verstehen.

[hehemande]

Ok.

Unit3: (Vorher Unit1 genannt)

Delphi-Quellcode:

//Habe ich entfernt

Unit2:

Delphi-Quellcode:

//Habe ich entfernt

Hoffe, ihr kommt mit meiner Unordnung klar...

[Nils_13]

Und? Wo liegt das Problem ? Es sollte alles laufen.
:shock: du hast ja überall TForm3 vergessen :shock:

[hehemande]

Tut es aber nicht :-(

[Nils_13]

Zitat:

Zitat von Nils_13

:shock: du hast ja überall TForm3 vergessen :shock:

Daran liegt es !

[hehemande]

Hmm, hilf mir mal auf die Sprünge, wo muss den da TForm3 hin?

[semo]

mache mal folgendes:

klicke mit der rechten Maustaste auf die Prozedurnamen im Implememtationsteil der Unit 3.
Dann öffnet sich ein PopupFenster.
Dort klckst du den Punkt "Klasse beim Cursor vervollständigen" an.

Und das für alle Proceduren.

ann wird automatisch im interface teil die Deklaration der Methoden aufgenommen :wink:

[Die Muhkuh]

Hi,

du (hehemande) musst, wie Nils es schon in seinem Beispiel erklärt hat, überall so machen.

Hier nochmal:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure CopyFiles;
    function GetTempDir: String; 
    function GetWinDir: String; 
  end;

implementation

function TForm1.GetTempDir: String; 
begin
  // mach was
end;

function TForm1.GetWinDir: String; 
begin
  // mach was
end;

procedure TForm1.CopyFiles;  
begin
  // mach was
end;

...

[edit] Delphi-Tags richtig gesetzt [/edit]

[Die Muhkuh]

*hier stand Mistfug*

[Muetze1]

Moin!

Zitat:

Zitat von Spider

Das geht nur anders rum.

Nein, du liegst falsch. Wie kommst du auf eine solche Behauptung? Das funktioniert in beide Richtungen - vielleicht nicht wenn du eine kleinere Version hast, aber bei meinem Delphi 5 und Delphi 7 Professional klappt es in beide Richtungen. Überhaupt schonmal ausprobiert?

MfG
Muetze1

[Nils_13]

Hört das hier bald mal auf, wir haben doch schon alles gesagt, ob man jetzt Faul ist alles einzutippen oder nicht ist doch egal.

[Die Muhkuh]

Zitat:

Zitat von Muetze1

Moin!

Zitat:

Zitat von Spider

Das geht nur anders rum.

Nein, du liegst falsch. Wie kommst du auf eine solche Behauptung? Das funktioniert in beide Richtungen - vielleicht nicht wenn du eine kleinere Version hast, aber bei meinem Delphi 5 und Delphi 7 Professional klappt es in beide Richtungen. Überhaupt schonmal ausprobiert?

MfG
Muetze1

Hmm,

echt?

Klappt bei mir nicht:

Delphi-Quellcode:

...

implementation

procedure TForm1.MachWas;
begin
  //
end;

Rechte Maustaste und vervollständigen klappt nich.

[edit] Ok, funktioniert doch. Nach nem Neustart von Delphi ging das auch. Wusste ich gar nicht. [/edit]

[mirage228]

Versuchs mal mit [Shift] + [Strg] + [C]

Damit sollte es auf alle Fälle gehen...

mfG
mirage228

[hehemande]

Ich habe es jetzt hinbekommen, DANKE!!

Ps: Das hat nichts mit zu faul zu tun, bin halt ein bischen blöd :lol:

[semo]

nicht "blöd", sondern "aller anfang ist schwer" :wink:

ist doch schön wenn es jetzt klappt.

[Nils_13]

:mrgreen: Dann stell mal später deinen Prog unter Freeware oder OpenSource zu Verfügung, handelt sich ja um ZIP.

[hehemande]

Hi,

Das wird ein Teil von einem Installer, der FREEWARE wird :-D

Gruß
Michael