Wie schon erwähnt, mach ne Basisklasse und schon gehts:
Delphi-Quellcode:
// pseudocode:
TFeld = class(TObject)
private
FTitel: string;
...
public
property Titel: string read FTitel write FTitel;
...
end;
TPantomimeFeld = class(TFeld);
...
end;
TSonstwasFeld = class(TFeld);
...
end;
...
procedure TForm1.Test;
var
Felder = array[0..5] of TFeld;
i: integer;
...
begin
...
for i := 0 to 5 do
begin
Memo1.Lines.Add(Felder[i]);
end;
end;
mfg
Christian