Скачать: CL | DM;

AddObject   Найти похожие ветки 

← →
1234567890   (2009-11-06 12:43) [0]

В 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

---

← →
Amoeba ©   (2009-11-06 12:47) [1]

Потому, что Memo.Lines, являясь наследником TStrings, не является таковым по отношению к TStringList

---

← →
Anatoly Podgoretsky ©   (2009-11-06 12:53) [2]

> 1234567890  (06.11.2009 12:43:00)  [0]

AddObject это функция, но ты почему то считаешь, что индекс 0

---

← →
1234567890   (2009-11-06 12:58) [3]

Все разобрался, спасибо!!!

---

← →
Anatoly Podgoretsky ©   (2009-11-06 13:15) [4]

> 1234567890  (06.11.2009 12:58:03)  [3]

А у нас принято приводить решение, халявщиков у нас не любят.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c