Indexen eines Arrays unterschiedliche Proz. zuweisen

[ichbins]

machs doch einfach so:

Delphi-Quellcode:

tirgendwas=class
  aldkjf:integer;
  alkadfjdfj:string;
  procedure abc(i:integer);
end;

[...]

var myarray:array[0..1] of tirgendwas;

[...]

procedure tirgendwas.abc(i:integer);
begin
  alkadfjdfj:=inttostr(aldkjf);
  aldkjf:=i;
end;

[...]

procedure tform1.formcreate(...);
var
  i:integer;
begin
  for i:=0 to length(myarray)-1 do
    myarray[i]:=tirgendwas.create;
end;

[...]

//Prozeduraufruf:
myarray[i].abc(17);