globale Funktionen?

[Leon de Bar]

Hi, gibt es globale funktionen? in der OH finde ich nichts oder ich stelle mich zu blöd an.

mein Problem:

mein programm prüft zunächst ob eine DB existiert. wenn nicht wird diese erstellt... soweit so gut.

bevor das tatsächliche prog startet öffne ich noch ein form in dem ich daten erfasse, die in der eben erstellten DB eingetragen werden müssen.

da ich die connetction nicht von anfang an auf active setzen kann (wenn noch keine DB da ist schmiert mir Delphi ab) muss ich wohl in dem Form2 (das Form vor dem eigentlichen Programm) eine verbindung zur DB herstellen. ich bin mir nicht sicher ob ich das noch öfter benötige, deswegen dachte ich mir - ich nehme die funktion für die DBConnection als globale in form1 auf.

aber wie rufe ich nun die funktion aus dem form2 heraus auf???

[fkerber]

Hi!

Deklariere sie doch im Public-Abschnitt von Form1 und rufe sie dann mit Form1.Functionname auf.


Ciao Frederic

[jim_raynor]

Die Funktion muss im interface-Teil einer Unit definiert sein. Schon kann von allen Units, die diese Unit einbinden darauf zugegriffen werden.

Beispiel:

Delphi-Quellcode:

unit TestUnit;

interface

procedure MeineGlobaleFunktion;

implementation

procedure MeineGlobaleFunktion;
begin
  // Mache irgendwas.
end;

end.

[Matze]

in Form2 einfach Form1 einbinden:

uses Unit1 Und die dort im public-bereich eingetragene Funkion müsste sich so aufrufen lassen:

Form1.Tuwas

[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

[Leon de Bar]

Hi, danke. Mein Fehler war, daß ich TForm1.Funktion aufgerufen habe... *dummer leon, dummer dummer dummer leon*

[Leon de Bar]

Ich hab da leider gleich noch ne frage...

wenn ich auf meine komponente ADOTable1 doppeltklicke, dann bekommt man in der regel ja die felder angezeigt. meine ist lehr. sicher, weil ich die verbindung nicht aktiv habe...

wie setze ich denn diese verbindung im quellcode active?

Hintergrund: wenn ich daten in die Tabelle schreiben will sagt er mir, daß ich eine geschlossene versuche zu bearbeiten...

[fkerber]

Hi!

Mach bitte für die neue Frage einen nuen Thread auf. Unter diesem Titel kann diene Frage nicht gefudnen werden.
Anders kommt die Hilfe bestimmt auch schneller

Ciao Frederic