Fehler bei Eintrag unter "Interface"

[gordon freeman]

Hi Leute,
ich habe in unit1 folgendes Stehen:

Delphi-Quellcode:

unit unit1;

interface

   procedure ordner;

uses
   Windows, Messages, etc....

type
   TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1.click(Sender: TObject);

private
   {Private-Deklarationen}
public
   {Public-Deklarationen}
end;

var
  Form1: TForm1;

implementation

procedure ordner;
begin
  {Quelltext der Prozedur}
end;

uses unit2;

{$R *.DFM}


procedure TForm1.Button1.Click(Sender:TOBject);
begin
   {Quelltext des Buttons}
end;

end.

Nun taucht bei "Uses" der Fehler auf,
"...dass eine Deklaration erwartet wurde, aber Uses gefunden wird."

Könnt ihr mir sagen, wieso? Die Prozedur Ordner muss doch unter interface aufgelistet sein und unter implementation definiert, damit eine andere Unit darauf zugreifen kann, oder gibt es noch andere Möglichkeiten? Bin für alle Lösungsansätze dankbar.

[Chewie]

Versuch mal, die uses-Klausel vor jeder Deklaration anzubringen.

[gordon freeman]

Zitat von Chewie:

Versuch mal, die uses-Klausel vor jeder Deklaration anzubringen.

Hab ich gemacht, dann kommt
Interface erwartet, aber Uses gefunden. IMHO steht das Interface an der richtigen Stelle, aber vieleicht ist die Prozeduren-Nennung falsch?

[Gruber_Hans_12345]

ich würds so probieren !

Delphi-Quellcode:

unit unit1;

interface

uses
   Windows, Messages, etc....

type
   TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1.click(Sender: TObject);

private
   {Private-Deklarationen}
public
   {Public-Deklarationen}
end;

   procedure ordner;
var
  Form1: TForm1;

implementation

uses unit2;

{$R *.DFM}

procedure ordner;
begin
  {Quelltext der Prozedur}
end;

procedure TForm1.Button1.Click(Sender:TOBject);
begin
   {Quelltext des Buttons}
end;

end.

Gruss
Hans

[Christian Seehase]

Moin Gordon,

erstelle mal ein neues Projekt, und schau Dir einfach mal den oberen Abschnitt der ersten Unit an.

[gordon freeman]

Zitat von Christian Seehase:

Moin Gordon,

erstelle mal ein neues Projekt, und schau Dir einfach mal den oberen Abschnitt der ersten Unit an.

Tut mir leid, aber die große Erleuchtung ( ) ist mir jetzt nicht gekommen.


@Hans Jetzt gibt er zumindest bei der procedure ordner keinen Fehler mehr raus, aber wenn ich in Form2 eintrage form1.ordner; sagt er undefinierter Bezeichner "ordner" Was fehlt denn nun noch?

[Die Muhkuh]

Delphi-Quellcode:

unit unit1;

interface

uses
   Windows, Messages, etc....

type
   TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1.click(Sender: TObject);

private
   {Private-Deklarationen}
public
   {Public-Deklarationen}
  procedure ordner; //<-- Hierhin die Procedure verschieben
end;

var
  Form1: TForm1;

implementation

uses unit2;

{$R *.DFM}

procedure Form1.ordner; //<-- Hier noch Form1. hinschreiben!
begin
  {Quelltext der Prozedur}
end;

procedure TForm1.Button1.Click(Sender:TOBject);
begin
   {Quelltext des Buttons}
end;

end.

[gordon freeman]

Zitat von Spider:

Delphi-Quellcode:

unit unit1;

interface

uses
   Windows, Messages, etc....

type
   TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1.click(Sender: TObject);

private
   {Private-Deklarationen}
public
   {Public-Deklarationen}
  procedure ordner; //<-- Fehler 1
end;

var
  Form1: TForm1;

implementation

uses unit2;

{$R *.DFM}

procedure Form1.ordner; //<-- Fehler 2
begin
  {Quelltext der Prozedur}
end;

procedure TForm1.Button1.Click(Sender:TOBject);
begin
   {Quelltext des Buttons}
end;

end.

@Spider habe es jetzt so gemacht, wie du geschrieben hast, bei Fehler 1 sagt er:
Ungenügende Forward- oder External-Deklaration bei TForm1.Ordner; Bei Fehler2 sagt er:
Bezeichner redefiniert: 'form1' Was mach ich nur immer falsch?

[Edit] Lösung gefunden Bei Fehler2 muss TForm1.ordner stehen. Dann funzt es auch!!! Danke an alle für die Hilfe

[Christian Seehase]

Moin Gordon,

dann hier mal die Auflösung des Rätsels :
Mein Vorschlag sollte Dir zeigen, dass Uses unmittelbar auf Interface folgen muss.
(ausser man muss/will Units im Implemenation Abschnitt angeben, dann muss uses unmittelbar auf implemenation folgen)