TjvSimpleXML: Existiert Item?

[Michael Habbe]

Hi,

ich habe das Beispiel von den Jedis umgesetzt:

Delphi-Quellcode:

procedure ParsePosition(AnXMLNode: TJvSimpleXmlElem);
var
  i: Integer;
  n, s: String;
  tf: TField;
begin
  for i := 0 to AnXMLNode.Items.Count - 1 do
  begin
    n := AnXMLNode.Items[i].Name;
    s := AnXMLNode.Items[i].Value;

    if n = 'order_total' then
      Parse_order_total(AnXMLNode.Items[i])
    else
      if n = 'Bla' then
        tu_was_mit_bla;

    // hier müsste er auf alle Fälle trotzdem immer hinkommen
    if n <> '' then
    begin
      tf := XTCBestellungTbl.FindField(n);
      if tf <> nil then
        XTCBestellungTbl.FieldByName(n).AsString := s;
    end;
  end;
end;

Wenn das nicht geht, hilft das klassische try except.