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:

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 (http://www.clubdelphi.com/foros/showpost.php?p=55960&postcount=2))

Saludos!