Concatenar Cadena Larga dentro de codigo Delphi
 

Hola a Todos.

Espero que me hechen una manito con esta cadena

Como haria para concatenar una cadena larga de 42 campos.
if TBancs.Checked then CopiaDatos(TEmpresas.Name,'INSERT INTO TEmpresa (CODI, DESCRIPCIO, NOM, DNI/NIF, CODI_POSTAL, SUBCODI,
POBLACIO,PROVINCIA, ADRECA, TEL1, TEL2, EMAIL, FAX, MISSATGES, CAMI, REPORTS,EDITDOCUMENT, EDITARTICLE, EDITCLIENT)
VALUES
(:CODI, :DESCRIPCIO, :NOM, :DNI/NIF,
:CODI_POSTAL, :SUBCODI, :POBLACIO, :PROVINCIA, :ADRECA, :TEL1, :TEL2, :EMAIL, :FAX, :MISSATGES, :CAMI, :REPORTS, :EDITDOCUMENT,
:EDITARTICLE, :EDITCLIENT)');


Gracias y saludos

exactamente, cuál es tu problema?

Quizá a su teclado le falle la tecla + :rolleyes:

// Saludos

Lo que pasa que tengo una cadena muy larga de 42 campos y quiero que toda la cadena de la sentencia Insert into (, , ......) values(:, :,.............) se haga en varias lineas y no todo en una sola linea.

No se si me deje enterder.

E aquí la clave de todo: La tecla +

Código Delphi [-]
if TBancs.Checked then 
  CopiaDatos(TEmpresas.Name,'INSERT INTO TEmpresa (CODI, DESCRIPCIO, ' +
  'NOM, DNI/NIF, CODI_POSTAL, SUBCODI, POBLACIO,PROVINCIA, ADRECA, ' +
  'TEL1, TEL2, EMAIL, FAX, MISSATGES, CAMI, REPORTS,EDITDOCUMENT, ' +
  'EDITARTICLE, EDITCLIENT) VALUES (:CODI, ESCRIPCIO, :NOM, NI/NIF, ' +
  ':CODI_POSTAL, :SUBCODI, :POBLACIO, :PROVINCIA, :ADRECA, :TEL1, ' +
  ':TEL2, :EMAIL, :FAX, :MISSATGES, :CAMI, :REPORTS, :EDITDOCUMENT, ' +
  ':EDITARTICLE, :EDITCLIENT)');

Wop!

Pues yo tampoco lo tengo claro :D Pero quiza esto te sirva:

Código Delphi [-]

  cadenaMuyLarga := 'kdlsjflsjkdfskjdlfsjdk' + #13 +
    'otra linea' + #13 + 
    'aun otroa';

Gracias Marcos Yanes era como tu decias.