Witam.
Deklaracja rekordu i tablicy:
TPracownikRek = record
teczka: integer;
imie: string;
nazwisko: string;
dzial: string;
kierownik: boolean;
idstr: integer;
archiwalny: boolean;
end;
TablicaPracownikow = array of TPracownikRek;
No i pozniej taka funkcja w klasie TDzial dostaje taka ladnie wypelniona po brzegi tabele z rekordami
function TDzial.Wczytaj( _tabpr: TablicaPracownikow ): boolean;
begin
try
SetLength( Self.tabPrac, Length(_tabpr) );
if( Length(_tabpr) > 0 ) then
Self.tabPrac:= _tabpr;
result:= true;
(...)
ale kopiowanie nie działa :/ Access violation przy przypisaniu rozmiaru tabPrac [lentgh() daje dobra wartosc]
O co moze chodzic bo trace czas i nie widze szczegolu w ktorym tkwi diabel? :/
Deklaracja tab w klasie:
TDzial = class
protected
tabPrac: TablicaPracownikow;
(...)