globale Funktionen?

[Dani]

Hi

Die Suchfunktion hätte da eigentlich einiges liefern müssen. Dennoch:

Delphi-Quellcode:

//Unit1:
//...

type
 TForm1 = class(TForm)
  //...
 public
  function MyFunction: TMyResultType;
 end;

Wenn du in Unit2 nach implementation folgendes einfügst, hast du Zugriff auf Form1 und alle als public deklarierten Methoden.

Delphi-Quellcode:

unit Unit2

type
 TForm2 = class(TForm)
//...

implementation

Uses Unit1;

prodecdure TForm2.Button1Click(Sender: TObject);
begin
 Form1.MyFunction();
end;

Wenn das zu umständlich ist kannst du die Funktion auch einfach global deklarieren. Einfach den Funktionskopf zwischen VAR- und implementation-Abschnitt einfügen:

Delphi-Quellcode:

Unit Unit1;
//...

var
 Form1: TForm1;

function MyFunction: TMyResultType;

implementation

funtion MyFunction: TMyResultType;
begin
 Result := TMyResultType.Create;
 //...
end;

Auch hier musst du wieder die Uses-Klausel nach implementation einfügen, und zwar in allen Units, die diese Funktion verwenden. Viel Spass