gleiche Unit in interface und implementation Bezeichner redefiniert!

[tralala]

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.

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

[Uwe Raabe]

Zitat:

Zitat von tralala (Beitrag 1174888)

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.

[tralala]

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

[uligerhardt]

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

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.

[Bernhard Geyer]

Zitat:

Zitat von tralala (Beitrag 1174890)

Kann eventuell der Aufruf von Initialization schuld sein?

Initialization muss AFAIK nach allen Funktiondefinitionen sein

implementation

... funktionen ...

initialization
...
finalization
...
end.

[DeddyH]

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

[Bummi]

du hast 2 mal

uses Graphics;

drin ...

[Bernhard Geyer]

Zitat:

Zitat von Bummi (Beitrag 1174902)

du hast 2 mal

uses Graphics;

drin ...

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

[Bummi]

dann hatte ich es falsch verstanden :oops: