Concatenar Cadena Larga dentro de codigo Delphi

[JoanKa]

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

[marto]

exactamente, cuál es tu problema?

[roman]

exactamente, cuál es tu problema?

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

// Saludos

[JoanKa]

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.

[maeyanes]

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

// Saludos

E aquí la clave de todo: La tecla +


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)');

[marto]

Wop!


No se si me deje enterder.

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



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

[JoanKa]

Gracias Marcos Yanes era como tu decias.