String, pa caba

[Totodile 0]

estava fazendo um comand SQL, e colokei ele como string, mas me deu um erro, pq minha linha de inserção de SQL passava 255 caracteres, e agora? como faço... ajudem plze!

[proteus 0]

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif jovem,

pesquisas recentes de campo [ hehe por aqui mesmo ]

eu descobri que, do delphi 3 em diante, uma string pode conter QUALQUER quantidade de caracteres....

 

seu problema, aposto , não é com estouro de string...

[Totodile 0]

ERRO:

[Error] formTxT.pas(143): String literals may have at most 255 elements

Código:

insere := 'insert into imprimir (id_nota, n_nota, cod_produto, cod_barra, valor, qtde, filial, p_desc) values( , lv.Items[g].SubItems[0], lv.Items[g].SubItems[1], lv.Items[g].SubItems[2], lv.Items[g].SubItems[3], lv.Items[g].SubItems[4], lv.Items[g].SubItems[5], lv.Items[g].SubItems[6])';

[proteus 0]

tenta quebrar ela...

com + ou concat..

 

 

var insere : String;begininsere := concat('insert into imprimir (id_nota, n_nota, cod_produto, cod_barra, valor, ',                  'qtde, filial, p_desc) values( , lv.Items[g].SubItems[0], ',                  'lv.Items[g].SubItems[1], lv.Items[g].SubItems[2], lv.Items[g].SubItems[3], ',                  'lv.Items[g].SubItems[4], lv.Items[g].SubItems[5], lv.Items[g].SubItems[6])');

[Totodile 0]

Não era bem o que eu estava pensando, era erro no meu código mesmo, mas valeu pela dica =P

[gilbertoscruz 0]

Você pode usar ao inves de String use WideString aceita mais de 255 caracteres !flw