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(..) не додумался.

Андрей Молчанов (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])));

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