Insertar renglones en campo Memo

[river_1]

Buenas a todos , necesito su ayuda para ver como inserto renglones en un campo Memo de una tabla.

Explico:
Tengo un grid con varios numeros de serie los cuales se seleccionan por medio de un checkbox al aplicar la salida de esos numeros de serie necesito que se metan al campo memo uno por cada renglon ,hasta ahora solo puedo insertar un solo renglon ya que no he podido hacer que por medio de codigo insertar un renglon y alli meter el siguiente numero de serie , asi hasta que se termine de leer todo el grid.

Uso delphi 7 y ADO...
No se si me explique...
Gracias..

[Casimiro Noteví]

Añade un #13#10 al final de cada número de serie

[river_1]

Hola Gracias por contestar mira deja te pongo el codigo de lo que estoy haciendo:

Código Delphi [-]
      Consulta:='Select * from TMPIMEI';
      qryInsIMEI.SQL.Clear;
      qryInsIMEI.SQL.ADD(consulta);
      qryInsIMEI.Active := TRUE;
      qryInsIMEI.Open;
      qryInsIMEI.First;
      WHILE NOT qryInsIMEI.EOF DO
      BEGIN
        IF TBLIMEI.Locate('IMEI',qryInsIMEIIMEI.Value,[])THEN
        BEGIN
          TBLIMEI.Edit;
          TblIMEIDISP.Value:='N';
          TblIMEIRECIBO.Value:=qryInsIMEICOMPRA.Value;
          TblIMEIFECHARECIBO.Value:=qryInsIMEIFECHACOMPRA.Value;
          TBLIMEI.Post;
          TBLFACTURAS.Edit;
          TblfacturasCOMENTARIOS2.Value:=INTTOSTR(qryInsIMEIIMEI.AsInteger)+#13+#10;
          //TblfacturasCOMENTARIOS2.Value:=#13;
          TBLFACTURAS.Post;
          qryInsIMEI.Next
        END;
      END;
      FRMPRINCIPAL.ADOControlTaller.Execute('DELETE FROM TMPIMEI');

Si te das cuenta lo estoy haciendo de 2 maneras diferentes pero solo me esta insertando el ultimo registro seleccionado...
Como aclaracion mi BD es SQL y no existe el campo memo , el campo es Text.
Gracias y se aceptan sugerencias....

[ecfisa]

Hola river_1.

Primeramente te ruego que encierres tu código Delphi entre las etiquetas [delphi] [/delphi] para una mejor legibilidad. (esta vez ya lo hice editando tu mensaje)

Y sobre el problema de inserción, creo que deberías probar así:

Código Delphi [-]
   Consulta:='Select * from TMPIMEI';
   qryInsIMEI.SQL.Clear;
   qryInsIMEI.SQL.ADD(consulta);
   qryInsIMEI.Open;
   qryInsIMEI.First;
   WHILE NOT qryInsIMEI.EOF DO
   BEGIN
     IF TBLIMEI.Locate('IMEI',qryInsIMEIIMEI.Value,[])THEN
     BEGIN
       TBLIMEI.Edit;
       TblIMEIDISP.Value:='N';
       TblIMEIRECIBO.Value:=qryInsIMEICOMPRA.Value;
       TblIMEIFECHARECIBO.Value:=qryInsIMEIFECHACOMPRA.Value;
       TBLIMEI.Post;
       TBLFACTURAS.Edit;
       TblfacturasCOMENTARIOS2.Value:=INTTOSTR(qryInsIMEIIMEI.AsInteger)+#13+#10;
       //TblfacturasCOMENTARIOS2.Value:=#13;
       TBLFACTURAS.Post;
       // qryInsIMEI.Next;  (aquí no)
     END;
     qryInsIMEI.Next;  // (aquí)
   END;
   FRMPRINCIPAL.ADOControlTaller.Execute('DELETE FROM TMPIMEI');

Saludos.

[river_1]

Una disculpa , tendre cuidado la proxima vez, de igual manera te indico que no me funciono ya que solo me inserta el ultimo renglon.
De alguna manera se tiene que poner lineas en un campo text de SQL..
Gracias..

[Casimiro Noteví]

Empezado por river_1

te indico que no me funciono ya que solo me inserta el ultimo renglon.

Entonces tendrás que explicar exactamente qué estás haciendo, cómo lo estás haciendo, qué quieres conseguir exactamente, el código fuente de lo que estás haciendo, etc.