AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Eine Unit in einer anderen Unit aufrufen

Ein Thema von Frage95 · begonnen am 4. Nov 2013 · letzter Beitrag vom 4. Nov 2013
Antwort Antwort
Frage95
(Gast)

n/a Beiträge
 
#1

Eine Unit in einer anderen Unit aufrufen

  Alt 4. Nov 2013, 14:13
Delphi-Version: XE2
Hey, ich programmiere gerade ein bisschen an einem Chat.
Läuft alles soweit gut nur jetzt bin ich gerade dabei mein Programm etwas weiterzuentwickeln.

Ich würde gerne wissen ob es möglich ist alle proceduren in einer zusammenzufassen und diese Prozedure sprich (den kompletten Ablauf der ganzen Unit)
in einer anderen Unit wiederzugeben.

Beispiel:

Unit1

procedure ServerClientConnect ();

procedure ServerClientDisconnect();

etc..

in einer zusammenfassenden procedure aufrufen

procedure Unit1 ();

ServerClientConnect;
ServerClientDisconnect;
etc..

Unit2

procedure StarteServer();

begin
Unit1();
end;

Würde mich sehr über schnelle Antworten freuen.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.129 Beiträge
 
Delphi 12 Athens
 
#2

AW: Eine Unit in einer anderen Unit aufrufen

  Alt 4. Nov 2013, 14:37
Nein, das geht nicht.

Nja, außer man sucht sich über die RTTI diese Funktionen zusammen und ruft sie darüber auf.



Aber was soll "StarteServer" dann machen?
Es ruft Connect und gleich danach Disconnect, was ja irgendwie nicht viel Sinn macht.

Du kannst dir aber natürlich selber eine Sammelfunktion schreiben, worin du alle gefünschten Funktionen manuell aufrufst.
Delphi-Quellcode:
procedure StarteServer();
begin
  ServerClientConnect;
  ServerClientDisconnect;
end;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PosEx im Delphi viel seltener praktiziert.

Geändert von himitsu ( 4. Nov 2013 um 14:39 Uhr)
  Mit Zitat antworten Zitat
Frage95
(Gast)

n/a Beiträge
 
#3

AW: Eine Unit in einer anderen Unit aufrufen

  Alt 4. Nov 2013, 14:47
Das waren nur Beispiel proceduren;

Ja eben genau das geht nicht ich kann nur "selbst" geschriebene proceduren in so eine sammel procedure aufrufen
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Eine Unit in einer anderen Unit aufrufen

  Alt 4. Nov 2013, 15:10
Irgendwie habe ich das Gefühl, man redet aneinander vorbei ...

Wenn du nur "selbst" geschriebene Prozeduren aufrufen kannst, dann wirst du wohl keine anderen Units eingebunden haben.

Delphi-Quellcode:
unit Tool1;

interface

procedure foo;

implementation

uses
  Tool2;

procedure foo;
begin
  bar; // Aufruf der procedure bar aus der unit Tool2
end;

end.
Delphi-Quellcode:
unit Tool2;

interface

procedure bar;

implementation

procedure bar;
begin
  // irgendwas machen
end;

end.
Also versuche das bitte nochmals zu beschreiben was du wirklich willst und versuche originalen Code zu posten wo zu sehen ist, was da nicht funktioniert.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Eine Unit in einer anderen Unit aufrufen

  Alt 4. Nov 2013, 21:11
Hallo,

die Prozeduren einer Unit sind nicht "ein Ablauf".
Sollen alle Procs einer Unit hintereinander aufgerufen werden,
schreibe eine Sammel-Proc und rufe diese dann auf.


Heiko
Heiko
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz