Problem mit xml File auslesen und in TTreeView anzeigen

[Mackhack]

Hi,

und hier ist sie schon:

Delphi-Quellcode:

  TLangWord = class(TObject)
  private
    ObjectName: String;
    TranslatedString: String;
  end;
  TLangForm = class(TObject)
  private
    FormName: String;
    TWords: Array of TLangWord;
  end;
  TLanguage = class(TObject)
  private
    TForms: Array of TLangForm;
    FLanguage: String;
  end;

Was mir noch auffiel: Jedesmal wenn ich ein neues 'Objekt' hinzufuege und die Procedure ShowLanguagesInTreeView aufgerufen wird zum aktualisieren tritt das Problem auf. Hier nochmal ein neuer Screenshot der das ganz schoen deutlich macht. Zuerst hab ich ein Objekt im TreeView. Hervorragend. Genauso will ich das sehen. Dann speichere ich das 2. Objekt und dann hab ich im TreeView auf einmal 2 Translations von BtnLoad und 2 Translations von BtnSave. Genauso dann wenn ich das 3. Objekt speichere.

Ich hoffe das hilft. Ich weis hier nicht weiter.