IsPublishedProp und itemindex von einer Checklistbox ?

[mimi]

Hallo,
ich habe da ein problem und zwar möchte ich gerne von allen komponenten die eine TStringList haben und ein Itemindex haben das diese werte in ein inifile geschrieben werden.

Leider geht das nicht weil die z.b. Checklistbox einen itemindex nicht als eigenschaft hat(vermute ich mal weil nichts im OI zu finden ist) .

hier ist mein qullcode

Delphi-Quellcode:

procedure Save_Config(Form:TForm;FileName:String);
var
  i:integer;
  iniFile:TIniFile;
  c:Tobject;
begin
  iniFile:=TIniFile.Create(FileName);
  for i:=0 to Form.ComponentCount-1 do begin
    if IsPublishedProp(form.Components[i],'Items') = true then
      iniFile.WriteString(Form.Name,form.Components[i].Name+'.'+'Items',TStrings(GetObjectProp(form.Components[i], 'Items', TSTrings)).CommaText);

    if IsPublishedProp(form.Components[i],'ItemIndex') = true then
      iniFile.WriteString(Form.Name,form.Components[i].Name+'.'+'ItemIndex',IntTostr(Integer(GetOrdProp(form.Components[i], 'ItemIndex'))));

 end;
end;

gibt es evlt. eine allternative zu IsPublishedProp ?
die mit eigenschaften und funktionen umgehen kann oder weiß einer eine andere lösung für das problem?

ich habe gesucht und auch alle mir bekannten foren durchgesucht(4 Stück und in google auch noch mal aber nichts gefunden !)

[Khabarakh]

TCheckListBox.ItemIndex ist public, wie du in der OH oder in den Sourcen sehen kannst. Entweder du leitest von dieser Klasse ab und setzt es in den published-Bereich oder - was wahrscheinlich die bessere Lösung wäre - du schreibst dir eine Factory, die dir für eine gegebene Komponentenklasse (z.B. TCustomListBox) ein Objekt zurückliefert, das dir die angegebene Klasse in deine Ini serialisiert.

[mimi]

danke für die antwort aber was ist ein Factory ?