Problem mit xml File auslesen und in TTreeView anzeigen

[Leonard]

Zitat von Mackhack:

Delphi-Quellcode:

procedure TfoFrmMain.ShowLanguagesInTreeView;
var
  I, J, K, L: Integer;
  lLanguageNode, lTFormNode, lTransNode: TTreeNode;
begin
  TV.Items.Clear;
  for I := Low(Languages) to High(Languages) do
  begin
    lLanguageNode := TV.Items.Add(nil, 'Sprache: ' + Languages[I].FLanguage);
    for J := Low(Languages) to High(Languages[I].TForms) do
    begin
      lTFormNode := TV.Items.AddChild(lLanguageNode, 'Form: ' + Languages[I].TForms[J].FormName);
      for K := Low(Languages) to High(Languages[I].TForms[J].TWords) do
      begin
        lTransNode := TV.Items.AddChild(lTFormNode, 'ObjektName: ' + Languages[I].TForms[J].TWords[K].ObjectName);
        for L := Low(Languages) to High(Languages[I].TForms[J].TWords) do
          TV.Items.AddChild(lTransNode, 'Translation: ' + Languages[I].TForms[J].TWords[K].TranslatedString)
      end;
    end;
  end;
  // Alle Knoten öffnen
  TV.FullExpand;
end;

Kann mir mal jemand sagen was falsch ist?

Hi,

Wenn ich das richtig verstehe, dann müsstest du die Schleifen für J und K ändern.

Delphi-Quellcode:

    for J := Low(Languages[I].TForms) to High(Languages[I].TForms) do
      ...
      for K := Low(Languages[I].TForms[J].TWords) to High(Languages[I].TForms[J].TWords) do

Mit der Schleife L das sieht mir auch ein wenig komisch aus, aber ohne die genauen Datentypen, wäre alles nur Vermutung.

mfg
Tobias