moinsen...
gibts!
Delphi-Quellcode:
for i := 0 to ComponentCount - 1 do
begin
if Component[i] is TCheckBox then
SaveToXML( Component[i] as TCheckBox ).Name, BoolToStr( (Components[i] as TCheckBox).Checked ) );
end;
savetoxml würde dann einfach nur den namen der komponente und den wert speichern.. ist jetzt so ne art pseudocode
einfach dann um "...is TEdit" usw erweitern
edit: mal eben angepasst... ich wusste irgendwo kam nen "s" hin aber natürlich anner falschen stelle :-p