Procedure lässt sich nicht aufrufen

[Alexander Roth]

Hi,

Wieso funktioniert es nicht, dass ich die Procedure schreibetextfile (Die sich in Form4 befindet) aufrufen kann?
Hier ist der Code von Form5 in der ich die Procedure aufrufen will.
Der Compiler meldet: Undefinierter Bezeichner schreibetextfile.

Code:

unit Unit5; 

interface 

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

type 
  TForm5 = class(TForm) 
    Label1: TLabel; 
    Button1: TButton; 
    Button3: TButton; 
    procedure Button3Click(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form5: TForm5; 

implementation 

uses Mathematik, Unit2, Unit3, Unit4, Unit6; 

{$R *.dfm} 

procedure TForm5.Button3Click(Sender: TObject); 
begin 
Close; 
end; 

procedure TForm5.Button1Click(Sender: TObject); 
begin 
deletefile(pfad); 



Form4.schreibetextfile; 



end; 


end.

Danke im Vorraus.

Ich möchte ein ganz großes Lob an die Betreiber und an alle Mitglieder vom Delphi-Praxis Forum ausrichten.

[Matze]

Deklariere die Funktion noch oben unter public.

[Alexander Roth]

Also ich habe jetzt mal

Code:

  public
    procedure schreibetextfile    ;

in form4 geschrieben:
Der Compiler bringt die nette Meldung (wahrscheinlich um mich zu ärgern): Ungenügende Forward- oder External-Deklaration: 'TForm4.schreibetextfile'.

:?:

[Luckie]

Hast du in der unit von Form4 auch so was wie

Delphi-Quellcode:

procedure TForm4.schreibetextfile;
begin

end;

stehen?

[Alexander Roth]

Ha, Ha , Ha. natürlich.

[Matze]

Kann aber eigentlich nicht sein... :?

Hast du ganz sicher Form4. davor stehen (im Implementation-Abschnitt)?

[Alexander Roth]

Oh Leute es hat anscheinend daran gelegen das ich nicht

Code:

procedure TForm4.schreibetextfile;
begin

end;

sondern

Code:

procedure schreibetextfile;
begin

end;

geschrieben habe. Dummer Fehler Tschuldigung das ich eure Zeit verschwendet habe.
Klappt jetzt. Danke für eure Hilfe.

[Matze]

Das hat Luckie ja gemeint, aber du wolltest es ja nicht glauben. :roll: