Hi,
meine XML-Datei sieht folgendermaßen aus:

markieren

Code:

<?xml version="1.0"?>
<language>
   <translator>
      <name>Christopher Harms</name>
      <website>http://www.csd-software.net</website>
      <date>2003-09-18</date>
   </translator>

   <form name="MainForm" />
   <form name="EditingForm" />
   <form name="AddingForm" />

   <control name="mmFile" form="MainForm">
      <caption>Datei</caption>
   </control>

   <control name="mmGrouping" form="MainForm">
      <caption>In Gruppen einteilen (XP only)</caption>
   </control>
</language>

Das Problem ist nun, das bei folgendem Source die Nodes nicht ausgewählt werden, sondern bei der gekennzeichneten Zeile eine Access Violation kommt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.UpdateLanguage;
var
  aLngDoc: IXMLDOMDocument2;
  aForms: IXMLDOMNodeList;
  slForms: TStringList;
  sXSL: string;
  i: integer;
begin
  if not fileExists(fLangPath + fLanguage + '.lng') then begin
    ShowMessage('Die Sprachdatei konnte nicht gefunden.' + #13#10
                + 'Es wird die Sprachvorgabe verwendet.');
  end;

  aLngDoc := CoDOMDocument40.Create;
  slForms := TStringList.Create;
  try
    aLngDoc.load(fLangPath + fLanguage + '.lng');
    sXSL := 'form'; {<-- gekennzeichnete Zeile ;-)}
    aForms := aLngDoc.documentElement.selectNodes(sXSL);
    for i:=0 to aForms.length - 1 do begin
      slForms.Add(aForms.item[i].attributes.getNamedItem('name').text);
      ShowMessage(aForms.item[i].attributes.getNamedItem('name').text);
    end;
  finally
    slForms.Free;
  end;
end;

Was habe ich falshc gemacht?

Chris

Zitat:

Was habe ich falshc gemacht?

Einiges.

1. Ich vermisse ein exit in dem Teil, in dem die Sprachdatei nicht gefunden wurde. Mit anderen Worten: egal ob die Datei existiert oder nicht, geladen wird sie trotzdem.

2. Warum so umständlich? An die Werte der Attribute kommst du einfach mit

markieren

Delphi-Quellcode:

aForms := aLngDoc.documentElement.selectNodes('form/@name');
if(aForms.length > 0) then
  for i := 0 to aForms.length - 1 do
    ShowMessage(aForms.item[i].Get_nodeValue);

Voilà.

3. Finde ich die Aufteilung ... hm, na sagen wir mal: umständlich. Warum ordnest du die Captions nicht gleich unter den Forms an, für die sie interessant sind? Was soll das:

markieren

Code:

<form name="[b]MainForm[/b]" />

<control name="mmFile" form="[b]MainForm[/b]">
  <caption>Datei</caption>
</control>

Warum nicht bspw. einfach

markieren

Code:

<form name="MainForm">
  <control name="mmFile">
    <caption>Datei</caption>
   
  </control>
</form>

Hi Mathias,
danke für deine Hilfe. Leider schon etwas spät. Werde mir das morgen Nachmittag allerdings direkt ansehen. Auf den Ersten Blick sehe ich aber schon, dass das vermutlich funktionieren kann.

Chris

Zitat von Chakotay1308:

Auf den Ersten Blick sehe ich aber schon, dass das vermutlich funktionieren kann.

Ich danke untertänigst für Euer Vertrauen.