Tablica obiektów klas

0

Witam, mam problem z utworzeniem tablicy obiektów klas. Z pojedynczą klasą wszystko działa, bo robione według wytycznych z tej strony:

type
  TMojaKlasa = class
  imie : string;
  nazwisko : string;
  end;

var
  Klasa : TMojaKlasa; 
begin
  Klasa := TMojaKlasa.Create; 
end;

Gorzej gdy chcę zrobić tablicę (array of TMojaKlasa;) bo nie wiem jak powinien wyglądać jej konstruktor. Z góry dziękuje za pomoc.

0

Gorzej gdy chcę zrobić tablicę (array of TMojaKlasa;) bo nie wiem jak powinien wyglądać jej konstruktor.
nijak, tablicy dynamicznej się nie konstruuje, tylko ustala jej wielkość:

var tablica:array of TMojaKlasa;
...
setlength(tablica,100);

teraz masz tablicę wyzerowaną, tj. każdy element od 0 do 99 ma wartość nil.

tablica[0] := TMojaKlasa.Create;

ale lepsza będzie klasa TObjectList, bo pozwala na automatyczne zniszczenie wszystkich elementów.

0

Dziękuje bardzo, teraz to się wydaje takie oczywist :D Jeszcze raz dziękuje.

0

a nie lepiej?

for I := Low(Tablica) to High(Tablica)
  Tablica[I] := TMojaKlasa.Create;
0

a nie lepiej?

A nie lepiej?

for I := 0 to length(tablica)-1 do Tablica[I] := TMojaKlasa.Create;

1 użytkowników online, w tym zalogowanych: 0, gości: 1