Eigene Klassen - Create-procedure

[mirage228]

Hi,

ich schlage vor:

Delphi-Quellcode:

// "object" ist obsolte und funktioniert in .NET nicht mehr - Klassen verwenden!

type
  TGroup = class(TObject) // muss nicht zwangsweise TComponent sein!
  private
    FMember: TStrings;
    FName  : String;
  public
    Member: TStrings read FMember;
    Name: string read FName write FName; 
    constructor Create;
    destructor Destroy; override;
  end;

// ...

constructor TGroup.Create;
begin
  inherited;
  FMember := TStringList.Create;
end;

destructor TGroup.Destroy;
begin
  FMember.Free;
  inherited;
end;

// ...
//deklaration:
Allys: TObjectList; // unit Contnrs;

//aufruf
procedure TForm1.FormCreate(Sender: TObject);
var 
  i: integer;
begin
  Allys := TObjectList.Create; // mehr zur Verwendung von TObjectList -> s. OH
  for i := 1 to 100 do 
    Allys.Add(TGroup.Create);
  // zugriff
  // TGroup(Allys[21]).Name := 'Mein Name oder was auch immer';
end;

Ich hoffe das hilft Dir

mfG
mirage228