Hola...
Vaya, no había leido bien este tema...
En Delphi, el tipo de datos
string no es una clase, así que hacer algo como
LV_Cat.Selected.SubItems.Objects[0] as string no es correcto.
Para hacer lo que necesitas tendrías que crear una nueva clase que internamente maneje un
string, y entonces si, guardar objetos de esta clase en la propiedad mencionada. Algo como:
Código Delphi
[-]
type
TString = class
private
FStr: string
public
property Str: string
read FStr
write FStr;
end;
var
Str: TString;
begin
Str := TString.Create;
Str.Str := 'Mi cadena';
Item.SubItems.Objects[0] := Str;
end;
var
S: string;
begin
S := TString(LV_Cat.Selected.SubItems.Objects[0]).Str
end;
var
I: Integer;
begin
for I := 0 to Pred(LV_Cat.Selected.SubItems.Count) do
LV_Cat.Selected.SubItems.Objects[0].Free
end;
También puedes checar este link:
http://delphi.about.com/od/vclusing/..._addobject.htm
Saludos...