Eigene Klassen - Create-procedure

[glkgereon]

ja, also ich hab mir folgende klasse definiert:

Delphi-Quellcode:

  TGroup = object
    Member:TStringList;
    Name: string;
  end;

object weil ich es nicht von TComponent ableiten will

nun möchte ich eine create-procedure schreiben...

wie?

Delphi-Quellcode:

procedure TGroup.Create(MyGroup:TGroup);
begin
  MyGroup.Member.Create;
end;

//deklaration:
Allys: Array[1..100] of TGroup;

//aufruf
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=1 to 100 do Allys[i].Create(Allys[i]);
end;

aber irgendwie funzt das nicht :(

wie muss ich das machen?

[StefanDP]

statt procedure einfach constructor nehmen

[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 :zwinker:

mfG
mirage228

[glkgereon]

ohje....naja, ich werd mich dann erstmal mit aufbau,ableitung und dem ganzen "klassen wortschatz" auseinandersetzen müssen...

danke für die lösung ;)