Delphi insert BD ORACLE

[lsanchez]

Empezado por Neftali

No entiendo cual es exactamente tu problema.
¿No sabes hacerlo?
¿Necesitas ideas?

Si utilizas un TStringList, lo cargas y recorres los elementos, no deberías tener problemas para ir obteniendo los campos.

De todas formas es posible que no te esté entendiendo...

Ante todo, gracias por tu respuesta.
Creo que no me deje entender bien, quería una idea de comor insertar cada linea de mi resultado en un determinado campo en Oracle, pero cumpliendo las condiciones del espacio en blanco y el salto de linea de cada fila. Pero no me complique mas y lo hice de la siguiente manera:

Código Delphi [-]
contieneTSL:=SepararCadena(resHtml,' ');
     contieneStr:=contieneTSL.Text;
     campos:='(empresa,ano_prese,codi_aduan,codi_regi,nume_orden,correo,fecha,archivo,declaracion,serie,i  tem,tipo_envio,guia_postal,observacion)';
            if contieneStr<>EmptyStr then
                begin                  
                     for i:=0 to contieneTSL.Count-1 do
                     begin
                      contieneTSL[i]:='INSERT INTO ORDEN_ERRORES_NUMERACION '+campos+' VALUES ('+contieneTSL[i]+');';
                      Memo2.Lines:=contieneTSL;
                     end;                   
                end;

Pero ahora mi duda es, como establecer la conexión con oracle y hacer que mi varibale contieneTSL se ejecute como sentencia SQL insertando las veces que exista.
Actualmente contieneTSL me imprime esto en un memo como resultado:

Código SQL [-]
INSERT INTO ORDEN_ERRORES_NUMERACION (empresa,ano_prese,codi_aduan,codi_regi,nume_orden,correo,fecha,archivo,declaracion,serie,item,tipo_  envio,guia_postal,observacion)
VALUES ('W','003797','17/07/2015','15:01:30','00920709','-----','------','------','05','------','9074AdvertenciadeRectificaci?n)SECUP:1BDUAHDR1.Codi_Prove:**CODIGO_DE_PROVEEDOR_EXTRANJERO_NO_E  XISTE,VERIFICAR_PORTAL_ADUANERO');
INSERT INTO ORDEN_ERRORES_NUMERACION (empresa,ano_prese,codi_aduan,codi_regi,nume_orden,correo,fecha,archivo,declaracion,serie,item,tipo_  envio,guia_postal,observacion) 
VALUES ('W','003797','17/07/2015','15:01:41','00920709','-----','------','------','05','------','9204AdvertenciadeRectificaci?n)DUAHDR.DIRE_IMPOR-20508565934-direcci?ndiferentealregistrado**MODIFICACI?NIMPROCEDENTE,NOSER?CONSIDERADA');
INSERT INTO ORDEN_ERRORES_NUMERACION (empresa,ano_prese,codi_aduan,codi_regi,nume_orden,correo,fecha,archivo,declaracion,serie,item,tipo_  envio,guia_postal,observacion) 
VALUES ('W','003797','17/07/2015','15:01:41','00920709','-----','------','------','05','------','9204AdvertenciadeRectificaci?n)Direcci?nSUNAT:AV.ANGAMOSESTE1805-P-10,SURQUILLO,LIMA,LIMA**MODIFICACI?NIMPROCEDENTE,NOSER?CONSIDERADA');