fields to xml

[Torquemalex]

Hi

I've an application with many fields (edit, combo, radio, ecc) and I'm looking for a quick and easy way to save/load all the data in the field. No matter if on an ini-like or xml file.
I'd prefer a loop inside all the components, in order not to be forced to change the load/save function when I add new components.

Can anybody please help me?

Thanks in advance and best regards!

Alex

 

[DjangMan]

Could be something like (untested):

procedure TForm1.SaveComponentData;
var
  i: integer;
begin
  for i := 0 to Self.ComponentCount -1 do
  begin
    if Self.Components[i] is TEdit then
      SaveTEdit(Self.Components[i]);
  end;
end;

You might use a Case statement instead of a if...then structure.

 

[Torquemalex]

Thank you!

 

[whosrdaddy]

give a look at XML Class Serializer on this page:

http://www.dragonsoft.us/delphi_vcl.php

/Daddy

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!