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 !)