
29.01.2013, 09:54
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
StringGrid1.Objects[0, 0]:=Pointer(29);
StringGrid1.Objects[1, 1]:=Pointer(1);
StringGrid1.Objects[2, 2]:=Pointer(2013);
ShowMessage(IntToStr(Integer(StringGrid1.Objects[0, 0])));
ShowMessage(IntToStr(Integer(StringGrid1.Objects[1, 1])));
ShowMessage(IntToStr(Integer(StringGrid1.Objects[2, 2])));
__________________
Пишу программы за еду.
__________________
|