Funktionen aus Externer Unit

[Sharky]

Hai Masteric,

ersteinmal: Herzlich Willkommen in der Delphi-PRAXiS

Zitat von Masteric:

... Bisher habe ich nur Procedure aus externen Units eingebungen. Geht das auch mit Funktionen? ...

Das geht mit Funktionen genau so wie im Procedureen.

Delphi-Quellcode:

unit zusatzunit;

interface

function Addiere(a, b: Integer): Integer;

implementation

function Addiere(a, b: Integer): Integer;
begin
  result := a + b;
end;

end.

Delphi-Quellcode:

unit U_Main;
..

implementation

{$R *.dfm}

uses
 zusatzunit;

procedure TDemo_Form.Button1Click(Sender: TObject);
var
 x : Integer;
begin
 x := Addiere(3,5);
end;