Globale Proceduren

[Thorben86]

Hi, ich will ne eigene Procedure schreiben
z.B.

Delphi-Quellcode:

procedure Test;
begin
....
end;

mein problem ist, dat ich die Global brauch, und da muss ich die ja deklariueren, nur weiss ich nit was ich da alles hinschreiben soll.

[Alexander]

Du musst sie, wenn sie in deinem gesamten Projekt verfügbar sein soll, mit ins Public aufnehmen:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private-Deklarationen }
  public
    procedure test({Parameter....});
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.test({Parameter....});
begin
//  Das ist eine globale Procedure....
end;

end.

[Tiefflieger]

Zitat:

Zitat von Alexander

Du musst sie, wenn sie in deinem gesamten Projekt verfügbar sein soll...

wenn nicht, sprich wenn die prozedur nur von bestimmten units benutzt werden soll: den prozedurkopf in den Interface-Teil schreiben und die implementation dann in den Implementations-teil:

Delphi-Quellcode:

unit MeineUnit;

interface

function MeineFunktion(x,y:integer):integer;

implementation

function MeineFunktion(x,y:integer):integer;
begin
  result := x+y;
end;

end.

danach kann man die prozedur(bzw die Unit, in der die Prozedur enthalten ist) dann in allen Units, wo man sie braucht, per

Delphi-Quellcode:

uses MeineUnit;

einbinden und benutzen.