в выше описанном методе tsps.read если поставить shomessage внутрь цикла создания и чтения строк - то он показывает значение. а если поставить после цикла, то ошибка доступа, какой бы элемент я не выводил
Код:
procedure tsps.read;
var
t:TStringList;
i:Cardinal;
begin
t:=TStringList.Create;
t.LoadFromFile(name);
for i:=0 to t.Count-1 do begin
spsStroka[i]:=TspsStrka.create();
spsStroka[i].read(t[i]);
showmessage(FloatToStr(spsStroka[i].Npr)); // - работает
end;
//а если поставить здесь
showmessage(FloatToStr(spsStroka[i].Npr)); // то ошибка accesviolaion
t.Free;
end;