Hallo,

Ich benütze delphi7 und komme hin und wieder durcheinander mit meinem code wenn er 1000 oder mehr zeilen lang ist.
Also hab ich mir gedacht, das ich manche functionen oder proceduren in einer anderen unit ableg.

markieren

Delphi-Quellcode:

procedure TForm1.printf(text: string);
begin
Status.Lines.Add(text);
end;

So ich will diese procedure jetzt z.B in eine andere unit packen aber trotzdem wie gewöhnt mit der Main-unit zugreifen.
Also ohne irgendwie UnitName.printf(..).

Ist das möglich, wenn ja, wie?

Das geht bei Methoden natürlich nicht, da die Klassendefinition nicht gestreut werden darf (in Delphi gibt es keine "partial classes").

Du könntest sie höchstens in externe Dateien legen, welche du dann inkludierst

Zitat von mkinzler:

Du könntest sie höchstens in externe Dateien legen, welche du dann inkludierst

So hab ich mir das auch gedacht, also eine datei namens Unit2.pas beinhaltet z.B. nur das:

markieren

Delphi-Quellcode:

procedure SendAll(packet: TPacket; size: integer);
var
  i: integer;
begin
for i:=1 to iplayers-1 do
  begin
    if players[i].online then
      players[i].connection.Socket.Send(packet, size);
  end;
end;

Und diese datei dann irgendwie so:

markieren

Code:

implementation
include('Unit2.pas');

inkludieren. So das delphi denkt, das der TEXT der in der Unit2.pas ist in der Unit1.pas ist (also dort wo ich es inkludiere)

Hallo,

das geht so:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

function blubb(a: Integer): Integer;

implementation

function blubb(a: Integer): Integer;
begin
  Result := a;
end;

end.

Einbinden geht nach wie vor über die uses-Klausel:

markieren

Delphi-Quellcode:

// ...
implementation

{$R *.dfm}

uses Unit2;
// ...

Var := blubb(1);

Grüße

Ich würde die Datei nicht die Endung .pas sonder .I, .inc o.ä. geben

{$i bla.inc}

Danke euch beiden!
Hab mich aber für Matze's version entschieden. Danke
Und was für eine sinnvolle function

Zitat von k4ni:

Und was für eine sinnvolle function

Hehe jo. Kannst du 1:1 übernehmen, die funktioniert. *g*

Spaß beiseite: Was besseres ist mir auf die Schnelle nicht eingefallen.

Moin,

Vorsicht:
mkinzler und Matze reden von verschiedenen Sachen! Das was du in deinem Beispiel gebracht hast...

markieren

Delphi-Quellcode:

procedure TForm1.printf(text: string);
begin
Status.Lines.Add(text);
end;

...ist ganz klar eine Methode! Das zeigt dir das vorangestellt TForm1., diese Methode gehört zu der Klasse (die Form in diesem Fall) und kann nicht gestreut werden, wie bereits erwähnt wurde gibt es ja keine Partial Classes.

Das, was mkinzler vorschlug ({$Include Test.inc}) funktioniert so: Delphi "denkt" sich den Inhalt der Include-Datei direkt in die Unit, als stünde statt der Include-Anweisung direkt der Inhalt der Datei. Da hier keine wirkliche Streuung vorliegt, kannst du das auch mit Methoden machen.

Matzes Vorschlag hingegen lagert lediglich eine Funktion oder eine Prozedur (nicht Methode!) aus, die du dann ansprechen kannst.

Ich hoffe ich konnte den Unterschied einigermaßen klären.

Grüße,
Max