Problema al obtener los datos de una SQL query con Lazarus

[Pedrote]

Buenas,
tengo una consulta que devuelve un único registro, el resultado de esta consulta es bastante largo y en consecuencia de ello, al recoger en Lazarus el valor se corta. ¿Cómo se puede solucionar?. La variable donde la almaceno esta definida con el tipo "Ansistring", aquí os dejo el fragmento de código:

Código Delphi [-]
 SQLQuery1.SQL.Text := 'SELECT ....';
 SQLQuery1.Open;
 prueba:=SQLQuery1.Fields[0].AsString;  // Prueba esta definida como AnsiString

Mencionar que en la unit esta colocada la opción "{$mode objfpc}{$H+}" y en las opciones del proyecto "Usar ansi string -Sh".

[Casimiro Notevi]

¿Que se corta?, ¿pero qué se corta?, ¿la sentencia que le pasas?, ¿el resultado se corta?, ¿pero cómo es el resultado?, ¿en cuánto se corta?...
Explica un poco más.

[Pedrote]

Se corta el resultado, con esa consulta genero una salida en formato XML (SELECT .... FOR XML RAW). El resultado se corta cuando la longitud de la variable prueba es de 2037 eso es lo que me devuelve Length(prueba).

[Casimiro Notevi]

¿Y qué es prueba?, amigo, que hay que sacarte las palabras

[Pedrote]

La variable expuesta en el fragmento de código que he puesto en este foro, donde se almacena el resultado de la consulta.

[Pedrote]

Se usa MS SQL, Lazarus 1.1 y en Windows.

[Casimiro Notevi]

.

[Pedrote]

¿Cómo???????

[anubis]

Hola,
Creo que ya se que lo que te pasa.
Mira lo que yo hice cuando me ha pasado eso es unir las dos cadenas.

Código Delphi [-]
cadena1:='select codigo from tabla where ';
cadena2:=' codigo  ....';
query1.sql.text:=cadena1+cadena2;

Si te hacen falta mas string las creas, eso sí acuérdate de dejar los espacios si son necesarios, al final de cada string sino te dara error.

espero que te sirva

saludos

[Casimiro Notevi]

Es que dice que es el resultado lo que se le corta. Por eso le he preguntado de qué tipo es la variable prueba, pero no ha contestado todavía.

[Pedrote]

Ya se solucionó fue una confusión mía, resulta que el resultado lo devolvía en más de una fila (yo pensaba que al generar un XML a partir de un select solo devolvería una única fila), pero por lo visto al crecer tanto lo devolvió en varias filas. Así que recorriendo las filas y concatenado en una variable lo solucione. Gracias a todos por la ayuda.