eigene unit in Delph

znysk

Erfahrenes Mitglied
Hi Ihr

kann mir vielleicht einer sagen, wie man ne eigene Unit, mit eigenen Funktionen/proceduen programmiert die man dan in nem anderen Programm nutzen kann?
In Pascal, kann man ne Unit ja einfach schreiben und dann unter *.tpu speichern und in den Quelltext unter uses einbinden, und so was funktioniert in delphi scheinbar nich ganz so einfach!

ZB.: in der gespeicherten oder neben bei laufenden Unit
Code:
BEGIN 
function ggt(a,b:integer):integer;
BEGIN
  IF (z1n<>0) AND (z2n<>0) THEN
    BEGIN
      repeat
        R := (z1n mod z2n);
        z1n := z2n;
        z2n := R;
      until R = 0;
      ggt := z1n;
    END
  Else ggt:=0;
END;

und in der Programm Unit...
Code:
teiler:=ggt(20,96);
 
Zuletzt bearbeitet:
mach einfach delphi an drücke auf neu und wähle ne unit aus (kein frame oder ne form)

die sollte dann so aussehen

unit Unit2;

interface

implementation

end.

so nun musst du wissen was deine funktionen oder proceduren können müssen (sprich welche anderen units du einbinden musst... nimm am besten erst mal alle standard units (uses klausel nicht vergessen))

und jetzt kannst du zwischen den units und der inplementation deine funktionen oder proceduren bekanntmachen

jetzt zur eigendlichen sache

deine kompletten proceduren oder funktionen setzt du nun zwischen implementation und end.

nun sollte deine unit in etwa so aussehen

unit Unit2;

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

procedure test;

implementation

procedure test;
begin
showmessage('test');
end;

end.

nun kannst du diese in 'JEDES' neue project einbauen und benutzten
(natürlich die einbindung per uses nicht vergessen)

z.b. so

procedure TForm1.Button1Click(Sender: TObject);
begin
unit2.test;
end;


hoffe geholfen zu haben...
 
THX THX

ich hatte vergessen meine procedure/function im Interface bereich zu deklarieren!!
*peinlichsei*

THX :|
 
Zurück