title: Delphi: Store data in somekind of structure
body: <p>For a simulation program I'm working in Delphi 2010. The simulation isn't a problem but I need to use large collection of data which gives a problem. The data is available in excel sheets, so there is no need to edit this data in Delphi, but collecting this data from the excel sheets takes around 10min. This isn't a problem as long as you don't need to collect the data  every time the program runs. So I made a program which collects all the data makes it visible, not problems here,and then store it. However I can't store it to a "Delphi format" , without losing the structure, so it can be loaded in a few seconds.</p>
  
  <p>I'm not that experienced in Delphi and I searched a long time for the solution but couldn't understand what was best. I think my way of structuring the data is wrong but it was simple and worked. However if there are better ways of storing the data please say so, but remember that I need some more explanation than just use 'a xml file', 'generict, or 'Ttreeview'. (have read it but wasn't able to use it).    </p>
  
  <p>The data is for: I made this product, The next product I make is this, so do I need to clean? True or false.</p>
  
  <p>The data is stores as a class(TObject) with Productnumber (integer) and a List which contains all products that could be made next.This list contains another class(TObject) with an Productnumber (integer) and a do I need to clean(boolean). I want to save this structure in a file, without losing the data and read it back to the same structure.</p>
  
  <p>I hope someone could help. Thank you in advance.</p>
  
  <p>Update: The code to provide a little more information (modified to English)</p>
  
  <pre><code>Clean_from = class(TObject)
  public
    myfromNumber      : Integer;
    mylist            : TList;
  published
    constructor Create;
  End
  
  Clean_To = class(TObject)
  public
    myToNumber        : Integer;
    Clean             : Boolean;
  End;
  
  constructor Clean_from.Create;
  begin
    inherited Create;
    myList := Tlist.Create;
  end;
  
  For i = 0 to 100 do
  begin
    From:= Clean_from.create;
    for j := 0 to 10 do 
    begin 
      To := Clean_To.create;
      To.clean := true or false;
      From.myList.add(To);
    end;
    GlobalList.add(from);
  end;
  </code></pre>
  
  <p>And now I want to save the global list with all the content so I could load it with the same structure.</p>