Поле Data для каждого Strings[i] в StringList

← →
SvetaZ © (2015-02-25 13:39) [0]

Есть примерно такая структура данных:

var SL: TStringList; PStr: array of Pointer; i,j: Integer; ................................ for i := 0 to 1000 do begin SL := TStringList.Create; for j := 0 to 20 do SL.Add("Тест"+IntToStr(j)); PStr[i] := Pointer(SL); end;

Как для каждого Strings можно назначить соответсвующие целочисленное поля?

Strings[i].Data := ? - такого нет (

← →
MBo © (2015-02-25 13:49) [1]

Стоит посматривать в хелп.
Есть Objects.

>PStr[i] := Pointer(SL);
Для чего это?

← →
SvetaZ © (2015-02-25 14:15) [2]

> MBo © (25.02.15 13:49) [1]

Ну а что здесь не так?

ShowMessage(TStringList(PStr[100]).Strings[10]);

← →
Palladin © (2015-02-25 14:18) [3]

а сразу
PStr: array of TStringList
религия не позволяет объявить?

← →
SvetaZ © (2015-02-25 14:26) [4]

> Palladin © (25.02.15 14:18) [3]

Позволяет.

> MBo © (25.02.15 13:49) [1]
>
> Стоит посматривать в хелп.
> Есть Objects.

Т.е. вариант один: создать класс от TObject c одним полем типа Integer?

← →
Palladin © (2015-02-25 14:29) [5]

TObject кастуется к Integer и наоборот

есть еще вариант .Objects[i] := TObject(SomeIntVal)

Спасибо.

Поле Data для каждого Strings[i] в StringList Найти похожие ветки