Exportar DBGrid a txt con formato.

[darkone2k4]

gracias nuevamente por la respuesta ecfisa.

Hice una revisión de los links que me diste, pero no se ajusta a lo que necesito.

Creo que expliqué mal lo que necesito.
La verdad es que en el DBGRID me da lo mismo el largo( caracteres ) que tengan los campos, lo que es importante es que al momento de pasarlos al archivo de texto, éstos cumplan con los requerimientos de longitud.
Estoy jugando con copy, trim, length para ver si por ahí me funciona.

desde ya, muchas gracias.

[urixiv]

Pues si te he entendido bien, ya lo tienes.
Para cada campo miras su longitud con el length.
Y si es más corto que la longitud que debe tener en el txt le añades los espacios. Y sino pues haces un Copy de 0 al numero de caracteres que quieres o bien un LeftStr.

Espero haber sido de ayuda!

[darkone2k4]

gracias por la respuesta urixiv.

al final lo he hecho utilizando Copy.
Claro que como son 15 columnas de distinto tamaño en longitud, he incluido un case donde, dependiendo de la columna, hiciera el recorte de caracteres.

salu2.

[ecfisa]

Hola darkone2k4.

Me alegro que lo hayas podido realizar pero, no entiendo la necesidad de usar copy para ajustar el largo al guardar en el archivo.
De eso se encargan la propiedad DisplayWidth y Length en la línea:

Código Delphi [-]
  s:= s + StringOfChar(' ', DBGrid1.Fields[i].DisplayWidth -
                      Length(DBGrid1.Fields[i].AsString)) +
                      DBGrid1.Fields[i].AsString;

Si no alterás los valores de presentación tendran por defecto los declarados en el DataSet y por lo tanto el campo cumplirá los requerimientos de longitud. Es decir que un campo de 10 caracteres con 3 ocupados, se guardará con 10 caracteres (7 espacios y los 3 ocupados).

Un saludo.

[darkone2k4]

gracias por responder nuevamente.

Tuve que utilizar Copy, ya que la información que se muestra en la dbgrid, viene de un archivo excel, el cual tiene un formato predeterminado y al pasarlo a TXT algunos campos quedan con una longitud de 255 caracteres, es por eso que he utilizado COPY para acortar los campos.

salu2.

Empezado por ecfisa

Hola darkone2k4.

Me alegro que lo hayas podido realizar pero, no entiendo la necesidad de usar copy para ajustar el largo al guardar en el archivo.
De eso se encargan la propiedad DisplayWidth y Length en la línea:

Código Delphi [-]
  s:= s + StringOfChar(' ', DBGrid1.Fields[i].DisplayWidth -
                      Length(DBGrid1.Fields[i].AsString)) +
                      DBGrid1.Fields[i].AsString;

Si no alterás los valores de presentación tendran por defecto los declarados en el DataSet y por lo tanto el campo cumplirá los requerimientos de longitud. Es decir que un campo de 10 caracteres con 3 ocupados, se guardará con 10 caracteres (7 espacios y los 3 ocupados).

Un saludo.

[ecfisa]

Hola darkone2k4.

Ahora entiendo, gracias por la aclaración.

Un saludo.

[darkone2k4]

Empezado por ecfisa

Hola darkone2k4.

Ahora entiendo, gracias por la aclaración.

Un saludo.

de nada amigo.

gracias por la ayuda brindada..

salu2.

[darkone2k4]

Hola nuevamente.

Te hago una consulta??
Utilizando el código que pusiste, se puede modificar para asignar un número determinado de caracteres dependiendo de las columnas del dbgrid?, he tratado de hacerlo pero no lo he podido lograr.

salu2.

[ecfisa]

Hola darkone2k4.

Utilizando el código que pusiste, se puede modificar para asignar un número determinado de caracteres dependiendo de las columnas del dbgrid?

Dependiendo de que cualidad de las columnas, ¿ del ancho ?

Un saludo.