Здравствуйте, Aniskin, Вы писали:
A>Здравствуйте, 4e6ypek, Вы писали:
4>>Спасибо огромное, всё работает!!!
A>Не забывайте, что не сможете считать значение -1, хотя записывается оно без проблемм.
Серьезная заява!
sl:=TStringList.Create;
for i:=1 downto -5 do
sl.AddObject('sss',Pointer(i));
for I := 0 to sl.Count-1 do
ShowMessage(IntToStr(Integer(sl.Objects[i])));
