Funktion in Delphi speichern

[Tyrael Y.]

Delphi-Quellcode:

unit MeineFunktionsSammlung;

interface
uses Dialogs;


procedure MeineTolleProzedur();

function AddiereZweiZahlen(ErsteZahl, ZweiteZahl: Integer): Integer;

implementation

procedure MeineTolleProzedur();
begin
  ShowMessage('Huhu!');
end;

function AddiereZweiZahlen(ErsteZahl, ZweiteZahl: Integer): Integer;
begin
  result := ErsteZahl + ZweiteZahl;
end;

Das wäre ein Beispiel für dich.

Edit:
Und wenn du es benutzt, zB so.

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private  
  public
  end;

var
  Form1: TForm1;

implementation
uses MeineFunktionsSammlung;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MeineTolleProzedur();

  ShowMessage(IntToStr(AddiereZweiZahlen(5, 7));
end;

end.