Hm, stvari ne stoje tako kako si ih postavio.
Prvo, Delphi-jev TStringList ne cuva podatke ni u kakvom array-u. Koristi se TList, koji sadrzi pointere na record-e, otprilke ovakve:
Code:
TStringListItem = record
Data: String;
Object: TObject;
end;
PStringListItem = ^TStringListItem;
Mozda imena nisu bas tacna, ali sustina jeste. Ti sad mozes da iskoristis field Object, koji je prakticno pointer (velicine 4 bajta), da u njega upises tvoj boolean. Nesto ovako:
Code:
var
MyStrList: TStringList;
MyBool: boolean;
...
MyStrList.Objects[i] := TObject(ord(MyBool)); // ovo je zapravo cast-ovanje integer-a u pointer/TObject
...
MyBool := boolean(integer(MyStrList.Objects[i])); // a ovo je obratno cast-ovanje
Svakako da se moze iskoristiti gornji kod da se, u nekoj nasledjenoj klasi, (recimo) doda property BoolValues[index]: boolean.
Medjutim, ja licno bih krenuo od nule, znaci pravio bih novu klasu, a svakako bih iskoristio standardnu klasu TList za FItems.
Pozz
Rajko