Limitar el tamaño de un string al imprimirlo

[jcheco]

Estimados amigos

Mi problema es el siguiente: tengo un campo de tipo texto con un número máximo de caracteres determinado, a la hora de imprimirlo (utilizo impresión directa (writeln(printertext,ADOT_TablaTCAMPO.AsString)) necesito que sólo se me impriman los 15 primeros caracteres, siempre los 15 primeros y no sé como hacerlo.

Espero que me podáis ayudar, muchas gracias.

[[ElDioni]]

No estoy seguro, pero si buscas en la ayuda de delphi FormatMaskText puede que esta funcion te valga.
o tambien puedes hacer en un string temporal lo siguiente:

Código Delphi [-]
procedure TForm1.QuinceCar();
var
temp:string
begin
temp:=ADOT_TablaTCAMPO.AsString[1]+ADOT_TablaTCAMPO.AsString[2]+ADOT_TablaTCAMPO.AsString[3]+...+ADOT_TablaTCAMPO.AsString[15];
end;

De esta forma tendras en temp los 15 primeros caracteres que quieres

[luisgutierrezb]

writeln(printertext,Copy(ADOT_TablaTCAMPO.AsString,1,15))

[delphi.com.ar]

Para organizar texto, suelo utilizar funciones como LPAD o RPAD (ver)

Saludos!