Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-05-2005
lroblesco lroblesco is offline
Miembro
 
Registrado: ene 2005
Ubicación: Baja California Sur, Mexico
Posts: 77
Poder: 20
lroblesco Va por buen camino
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;
Esta funcion lo que hace es recibe una cadena de hasta 255 caracteres y un numero entero(n), este el que indicara la longitud que deba tener, en este caso la descripcion, yo utilizo 25 caracteres para la descipcion.

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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 04:16:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi