Comment lire les données du fichier XML et l'afficher sur la zone de texte dans la langue Delphi

Consultez le composant TXMLDOCUMUMUMUMUMUMUMUMUMUMUMUMUMUMUMUMUMUMUMTOCLECUMDOCUMUMLECUMDOCUMUMLECUMDOCLECUMTOCUMTOCUMTOCUMTOCUMTOCUMDOCUMTOCLECUMTOCUMTOCLECUMTOCLECUMTOCLECUMTOCLECUMTOCLECUMTOCLEDOCLEDOCLECTES XXX PRE>

Alternativement, utilisez l'interface IXMLDOCUMUMUMENT CODE> (qui TXMLDOCUMUMUMENT CODE> Implements): P>

uses
  ..., XMLIntf, XMLDoc;

procedure TForm1.FormCreate(Sender: TObject);
var
  Doc: IXMLDocument;
  Data: IXMLNode;
  Node: IXMLNode;
  I: Integer;
begin
  Doc := LoadXMLDocument('vehicle.xml');
  Data := Doc.DocumentElement;
  for I := 0 to Data.ChildNodes.Count-1 do
  begin
    Node := Data.ChildNodes[I];
    // if all of the child nodes will always be 'vehicle' only
    // then this check can be removed...
    if Node.LocalName = 'vehicle' then
    begin
      // use Node.ChildNodes['type'], Node.ChildNodes['model'],
      // and Node.ChildNodes['number'] as needed...
    end;
  end;
end;