Die Unit, das unberechenbare Wesen

[aiguille]

:gruebel: weia. Peinlich.

[aiguille]

Ich bitte um Nachsicht, aber
wenn ich das Problem so formulier, dann krieg ich
>undefinierter Bezeichner 'Meldung'<

Delphi-Quellcode:

unit unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure Meldung;
begin
   ShowMessage('Meldung');
end;

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

end.

denn in unit2 steht:

Delphi-Quellcode:

unit unit2;

interface

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



implementation

uses unit1;

procedure XY;
begin
Meldung;
end;

end.

[malo]

Es gibt verschiedene Wege, das zu lösen.

Erstmal zur Erklärung: Du hast eine Prozedur im Implementation-Abschnitt geschrieben. Du kannst nun in allen Funktionen, die unter der entspr. stehen, einen Aufruf dieser machen. Allerdings gilt das nur für diese Unit.

Um die Prozedur/Funktion für mehrere Units öffentlich zu machen, gibt es imho 2 Möglichkeiten:

1. Du deklarierst die Prozedur im Interface-Abschnitt. Dürfte in der Unit1 so aussehen:

Delphi-Quellcode:

unit unit1;

interface

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

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

(*******************************************)
procedure Meldung;  //diese Zeile hier
(*******************************************)

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure Meldung;
begin
   ShowMessage('Meldung');
end;

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

end.

2. Möglichkeit ist, dass du es als Klassenmethode deklarierst (z.B. in Form1). dann sieht es so aus:

Delphi-Quellcode:

unit unit1;

interface

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

type
    TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure meldung; // Und hier wichtig. 
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.Meldung; // hier ganz wichtig
begin
   ShowMessage('Meldung');
end;

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

end.

Der Aufruf in diesem beispiel sähe so aus:

Delphi-Quellcode:

procedure blubb;
begin
Form1.Meldung;
end;

Es gibt auch andere Möglichkeiten, z.B. mit Interfaces, mit verschiedenen um-sich-schmeißenden Pointern, aber das wären wohl die geschicktesten Methoden ;)

[aiguille]

Ahhhhh...!herzlichen Dank :-D