![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
ok si trabajas en una linea de 40 caracteres me imagino que debes tener un limite para la descripcion, supongamos 25, lo que tienes que hacer en este caso es que antes de imprimir la variable la lleves al numero maximo de caracteres rellenandolo con espacios en blanco ( ' ' ).
Espero que te funcione cualquier duda pregunta
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
|
#2
|
|||
|
|||
|
cuadrar
yo he impreso en una star sp200 de 42 caracteres, lo que hago como dice el compañero eduardocol, es que te hagas una funcion para aumentar o recortar la cadena de caracteres de la descripcion.
Código:
function rellena(var S:string;n:byte):string;
var
long,i:byte;
begin
long:=length(s);
for i:=1 to n-long do
s:=s+' ';
rellena:=s;
end;
Código:
//una llamada de un detalle
writeln(F,'******************************************');
for i:=0 to lstVentas.Items.Count-1 do
begin
str1:=lstVentas.Items[i].SubItems.Strings[2];
rellena(str1,2);
str2:=lstVentas.Items[i].SubItems.Strings[0];
rellena(str2,25);
str3:=lstVentas.Items[i].SubItems.Strings[3];
writeln(F,str1+' '+str2,format('%8.2f',[strtofloat(str3)]));
end;
Espero te sirva
__________________
No siempre el mas veloz es el que gana la carrera Última edición por lroblesco fecha: 19-05-2005 a las 01:10:04. Razón: editar |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|