ayuda error eof in string detected

[[ElKurgan]]

Empezado por Rofocale

Código Delphi [-]

SQL.Clear;
SQL.Add('INSERT INTO ventasareas (orden, articulo, codigo, descrip, cantidad, precio, tipo,categoria, fecha) VALUES(');
SQL.Add(IntToStr(iRenglon) + ',' + grdDatos.Cells[0,iRenglon] + ',' +
grdDatos.Cells[1,iRenglon] + ',' + grdDatos.Cells[2,iRenglon] + ',' +
grdDatos.Cells[3,iRenglon] + ',' + grdDatos.Cells[4,iRenglon] + ',' +
grdDatos.Cells[6,iRenglon] + ','); // <----- ¿¿??
if(Length(grdDatos.Cells[10,iRenglon]) > 0) then
....

A lo mejor me equivoco, pero si el código que tienes es el que muestras, no puedes terminar una sentencia insert como está escrita, con una coma.

Prueba con esto, a ver si va:

Código Delphi [-]
       SQL.Add(IntToStr(iRenglon) + ',' + grdDatos.Cells[0,iRenglon] + ',' +
          grdDatos.Cells[1,iRenglon] + ',' + grdDatos.Cells[2,iRenglon] + ',' + 
          grdDatos.Cells[3,iRenglon] + ',' + grdDatos.Cells[4,iRenglon] + ',' + 
          grdDatos.Cells[6,iRenglon] );

Un saludo