Records nach ausen unsichtbar machen

[xZise]

Wie kann ich records die die als Typen deklariert habe, nur in der akt. Unit sichtbar machen?

[mkinzler]

In dem du sie im Implementation Teil deklarierst

[xZise]

Allerdings, funktioniert das nicht ganz so :P

Delphi-Quellcode:

implementation

type
   TApplicationData = record
    name, serial, registryKey, adcDir, notices : string;
  end;

  TApplicationMain = record
    mainApplication : TApplicationData;
    addons : array of TApplicationData;
  end;

  TApplicationGroup = record
    name : string;
    applications : array of TApplicationMain;
  end;

Zitat:

[Pascal Fehler] uApplicationData.pas(32): E2004 Bezeichner redefiniert: 'TApplicationData'
[Pascal Fehler] uApplicationData.pas(32): E2004 Bezeichner redefiniert: 'TApplicationData'

Und die Klasse, die diese Records benötigt spukt dann auch Fehlermeldungen aus...

[mkinzler]

Wird der Record auch im Interface deklariert?
Wo ist die Klasse deklariert, welche den Record verwenden soll?

[Cöster]

Siehe dazu auch hier die ersten 4,5 Posts (danach wurd's OT :wink: ). Da hatte ich die gleiche Frage zu Klassen gestellt.

[xZise]

Zitat:

Zitat von mkinzler

Wird der Record auch im Interface deklariert?

Die Records habe ich jetzt natürlich im impementation-Teil

Zitat:

Zitat von mkinzler

Wo ist die Klasse deklariert, welche den Record verwenden soll?

Interface

Delphi-Quellcode:

interface

type

  TApplicationCollection = class(TObject)
  private
    FApp : array of TApplicationGroup;

    FNewGroupName, FNewApplicationName : string;

    function getApplicationData(AGroup, ASelected,
      AAddon: Integer): TApplicationData;
    procedure setApplicationData(AGroup, ASelected, AAddon: Integer;
      const Value: TApplicationData);
  public
    property ApplicationData[AGroup : Integer; ASelected : Integer; AAddon : Integer] : TApplicationData read getApplicationData write setApplicationData;
    property NewGroupName : string read FNewGroupName write FNewGroupName;
    property NewApplicationName : string read FNewApplicationName write FNewApplicationName;

    procedure addGroup(name : string; index : Integer = -1);
    procedure addApplication(const AGroup, index : Integer; const AData : TApplicationData);
    procedure addAddon(const AGroup, ASelected, index : Integer; const AData : TApplicationData);

    constructor Create(ANewGroupName, ANewApplicationName : string);
  end;

implementation

type
   TApplicationData = record
    name, serial, registryKey, adcDir, notices : string;
  end;

  TApplicationMain = record
    mainApplication : TApplicationData;
    addons : array of TApplicationData;
  end;

  TApplicationGroup = record
    name : string;
    applications : array of TApplicationMain;
  end;

Zitat:

Zitat von Cöster

Siehe dazu auch hier die ersten 4,5 Posts (danach wurd's OT :wink: ). Da hatte ich die gleiche Frage zu Klassen gestellt.

Subklassen klingen gut ...