Robię program na podstawie http://4programmers.net/Delphi/Lista_jednokierunkowa. Podczas uruchamiania wyskakuje błąd Access Violation, a w logach wyskakuje brak dostępu do zmiennych. Co jest tego przyczyną? Niżej kod, połączony z błędem.
constructor Moja.Create;
begin
inherited Create();
FFirst := nil;
FLast := nil;
FCount := 0;
end;
{=================}
procedure Moja.Add(xxx : dane);
var
NewOne : wsk;
begin
NewOne := CreateElement(xxx);
if FFirst = nil then {<--- przy tej linijcie wyskakuje bląd}
begin
FFirst := NewOne;
FLast := FFirst;
end
else
begin
FLast^.Next := NewOne;
FLast := NewOne;
end;
Inc(FCount);
end;
{==================}
function Moja.CreateElement(AData:Dane) : wsk;
begin
New(Result);
Result^.Next := nil;
Result^.Data := AData;
end;