Cześć, mam taki record z innymi danymi typu class w składzie :
PDaneZamowienia=^TDaneZamowienia;
TDaneZamowienia=record
NrZamowienia:Integer;
Status:String;
InfoWydruk:String;
DataZamowienia:TDate;
PWykonawca:^TDaneFirmy;
PZamawiajacy:^TKontrahenci;
Odwołuję się do tej struktury tak, w zaznaczonym miejscu powstaje problem z dostępem:
PDaneZamowienia:^TDaneZamowienia;
New(PDaneZamowienia);
New(PDaneZamowienia^.PWykonawca);
New(PDaneZamowienia^.PZamawiajacy);
PDaneZamowienia^.NrZamowienia:='11111'
PDaneZamowienia^.PWykonawca^.Nazwa:='aaaaaa'; // -->> TUTAJ POWSTAJE PROBLEM Access violation.
ShowMessage(PDaneZamowienia^.PWykonawca^.Nazwa); // -->> LUB TUTAJ POWSTAJE PROBLEM Access violation.
PDaneZamowienia^.PZamawiajacy^.Nazwa:='bbbbbbbb'; // -->> TUTAJ POWSTAJE PROBLEM Access violation.
ShowMessage(PDaneZamowienia^.PZamawiajacy^.Nazwa); // -->> LUB TUTAJ POWSTAJE PROBLEM Access violation.
Dodam, że błędu nie wywala za każdym razem, czasami te linie przechodzą o problem pojawia na dalszych składowych rekordu np. PDaneZamowienia^.PZamawiajacy^.NIP
Poniżej jeszcze struktury TDaneFirmy i TKontrahenci - tutaj są to struktury class;
TKontrahenci=class
public
IloscBaza:Integer;
Id:Integer;
Identyfikator:AnsiString;
Nazwa:AnsiString;
Ulica:AnsiString;
KodPocztowy:AnsiString;
Miasto:AnsiString;
NIP:AnsiString;
Telefon:AnsiString;
Email:AnsiString;
TerminPlatnosci:Integer;
Samofakturowanie:Integer;
end;
TDaneFirmy=class
public
Id:Integer;
Nazwa:AnsiString;
KodPocztowy:AnsiString;
Miasto:AnsiString;
Ulica:AnsiString;
Telefon:AnsiString;
Fax:AnsiString;
Email:AnsiString;
HTTP:AnsiString;
NIP:AnsiString;
Bank:AnsiString;
Konto:AnsiString;
BDO:AnsiString;
end;