Zur Sichtbarkeit von TYPEN

[GueAck]

Hallo,

ich habe immer wieder folgende Unsauberkeit, die ich verbessern möchte:

In einer Unit habe ich:
------------------------------

Delphi-Quellcode:

INTERFACE

TYPE
t_xy =....

t_sichtbare_Klasse = CLASS
....
PRIVATE
xy:t_xy;
END;

IMPLEMENTATION
...

------------------------------
Der TYPE t_xy ist nach außen sichtbar, obwohl er eigentlich nur lokal gebraucht wird. Das ist gelegentlich lästig, weil man ja z. B. in einer Unit "UPKW" mit der Klasse "t_PKW" sowie in einer UNIT "ULKW" mit einer Klasse "t_LKW" jeweils einen TYPE "t_Motoreigenschaften" hat, was dann bei gemeinsamer Nutzung ein Problem gibt.

Hat da jemand eine Idee, wie man das richtig macht?

Gruß Guenther

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Apollonius]

Wenn der Typ im Interface nicht gebraucht wird, kannst du die Deklaration nach Implementation verschieben. Wenn er beispielsweise im private-Teil öffentlicher Klassen benötigt wird, kannst du zumindest in neueren Delphi-Versionen den Typen in der öffentlichen Klasse als private deklarieren.

[mkinzler]

Nicht im Interface, sondern unter Implementation deklarieren, dann ist er nur lokal sichtbar

[Meflin]

Zitat von mkinzler:

Nicht im Interface, sondern unter Implementation deklarieren, dann ist er nur lokal sichtbar

Dann kann ers in de rKlasse aber auch nicht verwenden...

[himitsu]

ab mindestens TurboDelphi/Delphi2006 geht sowas

Delphi-Quellcode:

t_sichtbare_Klasse = CLASS
....
PRIVATE
TYPE
  t_xy =....
VAR
  xy:t_xy;
END;

oder

Delphi-Quellcode:

t_sichtbare_Klasse = CLASS
....
PRIVATE
TYPE t_xy =....
PRIVATE
xy:t_xy;
END;

oder du definierst es in einer anderen Unit ... solange diese Unit nirgendwo anders eingebunden ist, ist es auch nirgends außerhalb sichtbar.

PS: das geht alles übrigend auch mit Konstanten

[sx2008]

Du kannst auch ein "richtiges" Interface deklarieren:

Delphi-Quellcode:

interface

IContact = Interface(IUnknown)
  function GetPhoneNo:WideString;
  ...
end;

function CreateNewContact:IContact;

implementation
 
type

TContact = class(TComObject, IContact)
  function GetPhoneNo:WideString;
end;

Damit lassen sich alle Implementationsdetails komplett verbergen.

[GueAck]

Viele hilfreiche Ideen, danke an alle, probiere ich alles aus!
Gruß Guenther