Eine zweite Unit mit eigenen Proceduren

ByteKiller · Beiträge: 32 Win Vista, XP Pro SP2 Delphi 7 (Delphi 2005)

Hi Leute,

ich möchte in einer "zweite Unit" (unabhängig von irgendeiner Form) alle
meine selbst geschriebenen Proceduren reinlegen. Wenn ich jetzt aus der
ersten Unit eine Procedur starten will funzt das net obwohl ich die
"zweite Unit" mit uses eingebunden habe...
Könnt ihr mir da helfen?

UGrohne · Verfasst: Fr 09.06.06 15:24

Hast Du sie auch im interface-Teil deklariert? Zeig mal ein wenig Code ...

fidionael · Verfasst: Fr 09.06.06 15:26

Was funktioniert wäre die Benutzung einer Include-Datei oder auch die einer DLL

Benutzung von Include-Dateien:

markieren

beispiel.inc

1:
2:
3:
4:

function Add(a,b: Integer) : Integer;
begin
  Result:=a+b;
end;

markieren

Unit1.pas

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{$I beispiel.inc}

end.

Für die Benutzung von DLLs schaust du dir am besten mal ein Tutorial an, da gibt's etliche.

Noch eine Möglichkeit, allerdings klingt es nicht so, als würdest du sie momentan brauchen, wäre die OOP (Objektorientierte Programmierung), für welche es auch unzählige gute Tutorials im Netz gibt.

Mfg

ByteKiller · Beiträge: 32 Win Vista, XP Pro SP2 Delphi 7 (Delphi 2005)

Bsp. für Unit1:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

implementation

uses unit2;

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

Bsp. für Unit2:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

unit unit2;

interface

uses
  SysUtils, Dialogs;


implementation


procedure neu;
var ....;
begin
.
.
.
end;

end.

jakobwenzel · Verfasst: Fr 09.06.06 15:37

du musst

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

unit unit2;

interface

uses
  SysUtils, Dialogs;

procedure neu;


implementation


procedure neu;
var ....;
begin
.
.
.
end;

end.

schreiben.

//EDIT: Is das jetz ne neue Abart des Highlighter-Bugs, oder is die schon bekannt?

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Marc. · Verfasst: Fr 09.06.06 15:46

hiho,
der grund, dass man oberhalb von implentation nochmals den procedure namen abgeben muss, ist der, dass alles, was nach implentation steht, nur unit-intern sichtbar ist!

ByteKiller · Beiträge: 32 Win Vista, XP Pro SP2 Delphi 7 (Delphi 2005)

THX

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme