mam dynamiczną tablicę obiektów,
Tworzę obiekt TDokument, wyepłniam do i dodaję do tablicy. I w tym momencie on w tablicy jest. Ale jak przejdzie linię FreeAndNil(kolejnyDokument) to dane z tablicy znikają (ale nie wszystkie).
Pewnie trzeba to robić jakoś inaczej?
wybraneDokumenty: array of TDokument;
SetLength(wybraneDokumenty, Length(wybraneDokumenty) + 1);
kolejnyDokument := TDokument.Create();
kolejnyDokument.idDokumentuObce := FLogikaDokumentyPowiazane.kbmZnalezioneDokumentyIdDokumentu.Value; //ID_DOK
kolejnyDokument.typDokumentu := FLogikaDokumentyPowiazane.kbmZnalezioneDokumentyTypDokumentu.Value; //DOK
kolejnyDokument.idProgramu := 1;
kolejnyDokument.idAutora := gZalogowanyId;
kolejnyDokument.nrDokumentu := StrToInt(FLogikaDokumentyPowiazane.kbmZnalezioneDokumentyNrDokumentu.Value); //NR_DOK
kolejnyDokument.nrPojazdu := FLogikaDokumentyPowiazane.kbmZnalezioneDokumentyNrPojazdu.Value; //NR_POJAZDU
kolejnyDokument.rokDokumentu := YearOf(FLogikaDokumentyPowiazane.kbmZnalezioneDokumentyDataDokumentu.Value); //ROK_DOK
wybraneDokumenty[Length(wybraneDokumenty)-1] := kolejnyDokument;
FreeAndNil(kolejnyDokument);