![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
использование TMemo.Lines.Objects[n] [D7, XP]
malyar © (2007-12-16 19:19:00)всем привет.
народ подскажите как правильно добавить значение
в свойство Memo1.Lines.Objects[n] (сохраняю переменную интегер)
а потом получить сохраненное значение (интегер)?
но при етом не трогать значение хранящиеся в
form1.Memo1.Lines.strings[n] (не удалять и не вписывать его заново)
код приведенный ниже всегда возвращает ноль
var q:integer;
q:=123;
form1.Memo1.Lines.strings[n]:='test';
...
...
form1.Memo1.Lines.Objects[n]:=tobject(q);
q:=integer(form1.Memo1.Lines.Objects[n]);
showmessage(inttostr(q));
sniknik (2007-12-16 23:53:00) [1]спам
{RASkov} (2007-12-16 19:46:00) [2]> [0] malyar (16.12.07 19:19)
У Memo.Lines которые типа TMemoStrings который в свою очередь типа TStrings, ни у кого нет "нормальной" реализации метода PutObject - в котором и должно происходить помещение объекта в список... А на его(объекта) чтение - вернет всегда nil, вот он и "конвертится" у тебя в 0....
Другими словами не получится у тебя задуманное с Мемо...
savyhinst (2007-12-16 19:29:00) [3]Но вот точно будет работать: создать объект с свойством integer, и когда надо помещать, создать объект и поместить.
savyhinst (2007-12-16 19:27:00) [4]Может быть TObject(q)?