Funktion in Delphi speichern

[Johannes013]

Hallo, :wink:

ich habe eine Funktion geschrieben und möchte diese nun in Delphi speichern. Ich müsste sonst immer die Komplette Funktionendeklaration schreiben. Ich will sie genauso benutzen wie RenameFile(...); oder PosEx(...);


:?::?:

[mkinzler]

In eine Unit Packen und diese dann unter Uses einbinden. Der Pfad muss ggf in den Bibliothekspfad übernommen werden.

[Johannes013]

kannste mir 'n Beispiel sagen........... :?

[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.

[himitsu]

Beispiele gibt's hier überall zu finden und auch in deinem Delphi

z.B. diese Unit > http://www.delphipraxis.net/internal...051400#1051400

Delphi-Quellcode:

Unit UnitName;

Interface
  Uses ...;

  Function DeineFunktion(...): ...;

Implementation
  Function DeineFunktion(...): ...;
    Begin
      ...
    End;

End.

Und dann einfach in der Unit, wo du die deine Funktion nutzen willst die "UnitName" in die Uses-Liste der entsprechenden Unit eintragen.

[Johannes013]

wo genau muss das denn hin? bei den Packages?

[Aphton]

Beispiel für TDE (Turbo Delphi Explorer):

Code:

1. Unter Datei auf "Neu" und anschließend auf "Unit - Delphi für Win32" klicken.
2. Dort - in der neuen Unit - alles unterbringen, was untergebracht werden muss.
3. Abspeichern
4. In einem neuen Projekt in Codeansicht bei Uses den Namen zur Einbindung eingeben.

MfG

[Johannes013]

Danke!