| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
AddObject
1234567890 © (2009-11-06 12:43:00)В TStringList нужно хранить строковое и числовое значения. К примеру, делаю так:
procedure TForm1.Button1Click(Sender: TObject);
var
Num: Integer;
begin
Num := 1;
Memo1.Lines.AddObject('A', TObject(Num));
ShowMessage(IntToStr(Integer(Memo1.Lines.Objects[0])));
end;
Почему не сохраняется числовое значение. ShowMessage возвращает 0
Anatoly Podgoretsky (2009-11-06 13:15:00) [1]> 1234567890 (06.11.2009 12:58:03) [3]
А у нас принято приводить решение, халявщиков у нас не любят.
1234567890 (2009-11-06 12:58:00) [2]Все разобрался, спасибо!!!
Anatoly Podgoretsky (2009-11-06 12:53:00) [3]> 1234567890 (06.11.2009 12:43:00) [0]
AddObject это функция, но ты почему то считаешь, что индекс 0
Amoeba (2009-11-06 12:47:00) [4]Потому, что Memo.Lines, являясь наследником TStrings, не является таковым по отношению к TStringList
| |
