Funktion in externe unit

draco · Beiträge: 21

Hallo,
ich habe das problem das ich eine funktion in eine externe unit ausgelagert habe und ich nun fehler wie z.b.

Zitat:

[Fehler] Unit1.pas(6): Undefinierter Bezeichner: 'TListview'

bekomme die verher nicht da waren!
Und nun meine frage: was kann ich dagegen tun?

Moderiert von Christian S.: Quote-Tags hinzugefügt

mkinzler · Verfasst: So 20.08.06 00:39

Es scheinen nicht alle benötigten Units eingebunde zu sein.

_________________
Markus Kinzler.

Kaoro-kun · Beiträge: 35 Win XP Delphi 7, Pascal

draco hat folgendes geschrieben:

Hallo,
ich habe das problem das ich eine funktion in eine externe unit ausgelagert habe und ich nun fehler wie z.b.
[Fehler] Unit1.pas(6): Undefinierter Bezeichner: 'TListview'
bekomme die verher nicht da waren!
Und nun meine frage: was kann ich dagegen tun?

Hier die hoffentliche Lösung:
Du öffnest das Projekt, mit ALLEN Units, die Du verwendest (beim Öffnen einfach einen Rahmen um alle ziehen und dann Öffnen klicken). Anschliessend markierst Du oben bei den Tabs die Unit, die die "externe" verwenden soll, und gehts bei Datei auf "Unit Verwenden" und markierst die Unit, die Du verwenden willst.
Falls Du in den Units Komponenten verwendest, die im andern Formular sind, so verwendest Du vor dem Komponentennamen den Namen der Unit.
Beispiel:

markieren

Delphi-Quelltext

1:	Tform1.edit:=Tform2.textvariable;

Regards,
Kao

Moderiert von Christian S.: Delphi-Tags hinzugefügt

_________________
Wissen ist Macht. Nichts Wissen macht nichts. Aber nichts zu Wissen, hat nichts mit Intelligenz zu tun.

draco · Beiträge: 21

OK danke das hat jetz soweit funktioniert nachdem ich die Units eingebunden habe!!
Aber irgendwie kommt jetzt:

Zitat:

[Fehler] Unit2.pas(197): Undefinierter Bezeichner: 'ListViewConfHTML'

das listview conf ist die function aus der anderen unit.

Moderiert von Christian S.: Quote-Tags hinzugefügt

Kaoro-kun · Beiträge: 35 Win XP Delphi 7, Pascal

Nun, dann gibst Du statt ListviewConfHTML einfach <Name der ersten Unit>.ListviewConfHTML ein, da ja diese Komponente auf die erste Unit referiert, verstehst Du?
Beispiel:

Tform2.edit.text:='Hier steht Text'; - die erste Unit verändert den Text im Edit der 2. Unit

Tform1.Listbox.Item.Add ('Und ein weiterer Eintrag'); - die zweite Unit fügt der Listbox der ersten Unit eine Zeile mit dem dahinterstehenden Text hinzu
Regards,
Kao

Moderiert von Christian S.: Delphi-Tags hinzugefügt

_________________
Wissen ist Macht. Nichts Wissen macht nichts. Aber nichts zu Wissen, hat nichts mit Intelligenz zu tun.

draco · Beiträge: 21

ne das ist keine komponente sondern eine funktion in der externen unit ist gar kein formular!!

Kaoro-kun · Beiträge: 35 Win XP Delphi 7, Pascal

Nimmt sich aber nichts, da diese Funktion in der Unit steht, die in der ersten Form arbeitet.
Jedenfalls werden Funktionen ausserhalb einer Unit immer mit dem zugehörigen Formnamen aufgerufen, da sie darunter arbeiten.
Du kannst ja genauso gut eine Behandlungsroutine für einen Button in Form2 auch in Form1 aufrufen, weil Du ihre Funktion nochmal brauchst. Erspart dir Kopier- bzw. Schreibarbeit. Die rufst Du dann eben bspw. mit Form1.Buttton1Click(Sender); auf.

Regards,
Kao

_________________
Wissen ist Macht. Nichts Wissen macht nichts. Aber nichts zu Wissen, hat nichts mit Intelligenz zu tun.

draco · Beiträge: 21

das versteh ich nicht!
wie soll ich die funktion mit Formnamen davor aufrufen wenn in der unit kein form ist?
kannst du vllt einfach mal ein beispiel posten wie ich die funktion aufrufen muss?

Gausi · Verfasst: So 20.08.06 13:13

Die Funktionen und Prozeduren, die du in fremden Units verwenden willst, müssen im Interface-Teil der Unit, in der sie implementiert werden, auch deklariert werden. Also:

markieren

Delphi-Quelltext

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

unit U_MitTollenFunktionen;

interface

uses // was auch immer in dieser Unit gebraucht wird

function PlusEins(a:integer):integer;

implementation

function PlusEins(a:integer):integer;
begin
  result := a + 1;
end;

end.

Will man nun die Funktion PlusEins in einer anderen Unit benutzen, dann geht das so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Unit HauptUnit;

uses {evtl. weitere Units} U_MitTollenFunktionen;

interface {...}

implementation

Procedure TForm1.Button1Click;
var i: Integer;
begin
  i := StrToInt(Edit1.Text);
  i := PlusEins(i);
  showmessage(IntToStr(i));
end;

_________________
We are, we were and will not be.

draco · Beiträge: 21

Ok danke das hat funktioniert!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme