XML Data Binding no Delphi - Parte 2

Como acessar o Arquivo XML em Delphi

Continuando o projeto iniciado na parte 1
Agora veremos como abrir o arquivo XML e visualizar os dados presentes neste.

Interface

Crie um novo projeto no Delphi com esta aparência utilizando um TButton e um TMemo.
Salve o arquivo XML na mesma pasta do executável para simplificar o código.
Adicione a unit gerada pelo Data Binding a cláusula Uses do formulário.

Visualizar os contatos

 Adicione o seguinte código no evento OnClick do TButton.

var Agenda  : IXMLAgendaType;
    Contato : IXMLContatoType;
    idx     : Integer;
begin
  // Ler dados do arquivo XML
  Agenda := Loadagenda('agenda.xml');
  // Limpar o texto do Memo
  mmContatos.Lines.Clear;
  // Ler cada um dos contatos salvos
  for idx := 0 to Agenda.ChildNodes.Count -1 do
  begin
    Contato := Agenda.Contato[idx];
    // Adicionar ao Memo os dados do contato
    mmContatos.Lines.Add('Contato: ' + Contato.Nome + ' Telefone: ' + Contato.Fone);
  end;

Ao executar o projeto e clicar no TButton o formulário deverá ficar assim.

Na próxima parte veremos como adicionar um novo contato e salvar os dados no arquivo para utilização posterior