Форум: "Основная";
Текущий архив: 2005.08.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Андрей Молчанов   (2005-08-08 21:22) [0]

Здравствуйте!

Возник вопрос - пожалуйста, подскажите, как использовать TStringList.AddObject так, что бы добавлять к каждой строки число integer?

---

← →
Гаврила ©   (2005-08-08 21:26) [1]

var
 N: integer;

StringList.AddObject(",kf,kf,kf", TObject(N))

Читать:
N:=Integer(StringList.Objects[i]);

---

← →
Андрей Молчанов   (2005-08-08 21:30) [2]

Спасибо! Сам я вот до этого TObject(..) не додумался.

---

← →
Eraser ©   (2005-08-08 21:30) [3]

Андрей Молчанов   (08.08.05 21:22)

Примерно так:
var
 sl: TStringList;
 i: integer;
begin
 sl := TStringList.Create;
 i := 10;
 sl.AddObject("String", Pointer(i));
 showmessage(inttostr(longint(sl.Objects[0])));


---

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

Форум: "Основная";
Текущий архив: 2005.08.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c