0

Recibo un xml de internet, el cual contiene paises y monedas que pueden variar, despues lo cargo a un "List Box 1" y con los botones en pantalla los agrego o quito del "List Box 2"

aqui esta una imagen de lo que quiero: https://i.sstatic.net/xYDiz.png

el codigo:

function LoadValuesFromXML(FileName: string): Boolean;
var
  XMLNode: Variant;
  XMLNodeList: Variant;
  XMLDocument: Variant;  
  Index: Integer;
begin
  XMLDocument := CreateOleObject('Msxml2.DOMDocument.6.0');
  try
    XMLDocument.async := False;
    XMLDocument.load(FileName);
    if (XMLDocument.parseError.errorCode <> 0) then
    begin
      Log('The XML file could not be parsed. ' + XMLDocument.parseError.reason);
      Result := False;
    end
      else
    begin
      XMLDocument.setProperty('SelectionLanguage', 'XPath');
      XMLNodeList := XMLDocument.SelectNodes('//listaPaises/item');
      for Index := 0 to XMLNodeList.length - 1 do
      begin
        XMLNode := XMLNodeList.item[Index];

        Log(
          Format('Pais = %s; Moneda = %s', [
          XMLNode.SelectSingleNode('name').Text,
          XMLNode.SelectSingleNode('suggestedCurrency').Text])); 

          comboBoxPais.items.Add(XMLNode.SelectSingleNode('name').Text); //Add Paises (countries) ???
          listBoxMonedasDisponibles.items.Add(XMLNode.SelectSingleNode('suggestedCurrency').Text);//Add Monedas (Currency)???
          listBoxMonedasDisponibles.ItemIndex := 0;
          comboBoxPais.ItemIndex := 0;
      end;
      Result := True;

    end;
  except
    Log('An error occured!' + #13#10 + GetExceptionMessage);
    Result := False;
  end;
end;

1 respuesta 1

0
if listBoxMonedasDisponibles.Items.IndexOf(XMLNode.SelectSingleNode('suggestedCurrency').Text) < 0 then 
             listBoxMonedasDisponibles.Items.Add(XMLNode.SelectSingleNode('suggestedCurrency').Text);
             listBoxMonedasDisponibles.ItemIndex := 0;

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.