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;