Hallo,

ich würde gerne Funktionen, die ich oft benötige in eine separate Unit auslagern. Leider bekomme ich es nicht hin, dass ich die Funktionen auch aufrufen kann.

Beispiel:

Ich habe eine Form mit dem Namen "Kunden". In einer globalen Unit mit dem Namen "Tools" soll nun die Funktion XYZ aufgerufen werden.

Wie bringe ich die Form mit der Unit so zusammen, dass ich aus dem Form Kunde eine Funktion der Unigt "Tools" aufrufen kann.

Die Unit in die Uses des implementation Teils.

hier wäre ein Beispiel : https://www.delphi-treff.de/object-p...rogrammaufbau/

oder ggf. deinen eigenen Code hier posten

Die Unit muss einen Interface und einen Implementationsteil haben.
Im Interface-Abschnitt kommen die Proceduren/Funktionen mit ihrem Aufruf-Syntax
und müssen dann im Implementations-Abschnitt definiert werden:

zusammenfalten · markieren

Delphi-Quellcode:

unit MeineFunktionen;

interface

uses
  WinApi.Windows; {nur als Beispiel}

const {diese const/procedure/function sind nach von aussen aufrufbar}
  VersionsNr : string = '5.4.334';

procedure Machirgendwas(Zahl : Integer);

function BerechneWas : longInt;

implementation

function Verdopple(Zahl : Integer) : Integer; { -> diese function klappt nur innerhalb der Unit, da nicht im Interface-Abschnitt}
begin
  resulte := Zahl*2;
end;

procedure Machirgendwas(Zahl : Integer);
begin
 {hier Verarbeitungs-Code}
end;

function BerechneWas(Zahl : longInt) : longInt;
var
  n : longInt;
begin
  n := Verdopple(Zahl)*4;
  result := n;
end;

end.

Im Programm muss dann die Unit MeineFunktionen per uses eingebunden werden.

markieren

Delphi-Quellcode:

...
uses
  MeineFunktionen;

var
  n : LongInt;
...
  n := BerechneWas(2); {Ergebnis wäre 16}

Der einfachste Weg bei nicht grafischen Elementen wäre eigentlich ohne Interface und dafür mit include zu arbeiten, wenn es nur um einfache Funktionen und Prozeduren geht.

Bei komplexeren Sachen mit grafischen Komponenten (und nötigem Inferface) lassen sich Funktionen und Prozeduren auch universell in Units auslagern, die vom Mainform des Hauptprogramms unabhängig sind.

Die jeweiligen Kompontenten werden dann einfach als Parameter übergeben.

Nurmal als Beispiel:

markieren

Delphi-Quellcode:

Procedure ClearGrid(sg: TStringGrid);
VAR
  i: Integer;
BEGIN
  WITH sg DO BEGIN
    FOR i := 0 TO RowCount DO Rows[i].Clear;
    RowCount:=2;
    fixedRows:=1;
  END;
END;

Procedure ClearGrid(sg: TStringGrid); und Aufruf im Hauptprogramm durch

markieren

Delphi-Quellcode:

procedure TForm1.ClearGrids;
VAR
  i: BYTE;
begin
  for i:=1 to 7 DO ClearGrid(FindComponent('StringGrid'+IntToStr(i)) as TStringGrid);
end;

Super, vielen Dank. Ich mache mich mal ran und versuche das umzusetzen.

Gruß
Sugar