Importar fichero XML

[[RONPABLO]]

Prueba con los siguientes combios...

Código Delphi [-]
if FileExists(Plantilla) then begin
  vFichero := TStringList.Create;
  vFichero.LoadFromFile(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + Plantilla);
  for i:=1 to vFichero.Count - 1 do begin
    vsLinea := vFichero.Strings[i];
    vsSql := 'INSERT INTO PLANTILLA_XML (ATRIB1) VALUES (:vsLinea)';
    qCargaTabla.Close;
    qCargaTabla.SQL.Text := vsSql;
qCargaTabla.ParamByName('vsLinea').asString := vsLinea;
    qCargaTabla.ExecSQL;
  end;//for
  vFichero.Clear;
  vFichero.Free;
end //if FileExists