Unit-Übergreifende Prozedur

[Neutral General]

Hallo,

So gehts:

Delphi-Quellcode:

unit Unit2;

interface

procedure Ausfuehren;

implementation

procedure Ausfuehren;
begin
  // Code
end;

end.

Delphi-Quellcode:

unit Unit1;

interface

uses Forms, ..., Unit2; // hier Unit2 einbinden

type
  TForm1 = class(TForm1)
    ...
  public
    procedure Irgendwas;
  end;

implementation

// ODER hier
//uses Unit2; 

procedure TForm1.Irgendwas;
begin
  Ausfuehren; // Aufrufen
end;

end.