Hallo zusammen,

ich habe mal eine kleine Frage. Ich habe eine Tool-Unit, welche ein paar globale Proceduren hat. Ich habe diese ganz Normal im Interfaceteil deklariert
und im Implementation definiert. Das Problem ist das ich nicht kompilieren kann, weil der Compiler sagt, das der Bezeichner redefiniert wäre. Womit er ja auch Recht hat, den ich brauche die gleichen units einmal im interfaceabschnitt wegen der übergbenen Datentypen (zb.TColor) und im implementation wegen der Funktionen.

bsp.

zusammenfalten · markieren

Delphi-Quellcode:

interface

uses Graphics;

Procedure CreateMaskedBitmap( Var Source: TBitmap;
                              Var Mask: TBitmap;
                              TransparentColor: TColor );

implementation

uses Graphics;

procedure CreateMaskedBitmap(...)
begin

end;

Jemand ne Idee wie ich das lösen könnte?

mfg

Zitat von tralala:

Jemand ne Idee wie ich das lösen könnte?

Lass sie im Implementation-Teil weg. Alles was im Interface-Teil steht, ist innerhalb der ganzen Unit verfügbar.

Hallo Uwe,

erstmal danke für deinen Rat, so habe ich es auch in Erinnerung von meinem Delphi7. Ich arbeite hier mit Delphi6 und es funktioniert nicht auf diese Weise. Der Compiler meint dann undefinierter Bezeichner! Kann eventuell der Aufruf von Initialization schuld sein?

mfg

Poste doch mal eine minimale Unit, bei der das Problem auftritt. Das hier:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit3;

interface

uses Graphics;

procedure CreateMaskedBitmap(var Source: TBitmap;
  var Mask: TBitmap;
  TransparentColor: TColor);

implementation

procedure CreateMaskedBitmap(var Source: TBitmap;
  var Mask: TBitmap;
  TransparentColor: TColor);
begin

end;

initialization
  //
end.

lässt sich z.B. bei mir (D2007) kompilieren.

Zitat von tralala:

Kann eventuell der Aufruf von Initialization schuld sein?

Initialization muss AFAIK nach allen Funktiondefinitionen sein

implementation

... funktionen ...

initialization
...
finalization
...
end.

So habe ich das auch in Erinnerung: unmittelbar vor das abschließende "end." den finalization-Abschnitt (so vorhanden), davor den initialization-Abschnitt.

du hast 2 mal

uses Graphics;

drin ...

Zitat von Bummi:

du hast 2 mal

uses Graphics;

drin ...

Ist schon mit Post #2 und #3 gelöst

dann hatte ich es falsch verstanden