Ver Mensaje Individual
  #1  
Antiguo 12-05-2010
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Reputación: 15
Rofocale Va por buen camino
ayuda con funcion copy

Buenas tengo esta parte de codigo con lo que hago en mi reporte en 2 labels es repartir una direccion si es demasiado larga y sobrepasa los 45 caracteres
ahora el problema es que cuando llega al final de los 45 caracteres y escribe en el segundo label desde el 46 caracteres quisiera que en el primer label al acabar ponga una raya "-" osea algo asi

direccion de prueba es es-
ta

como lo podria hacer ?
espero me ayuden
gracias

Código Delphi [-]
totalS := md.tfacturas.FieldByName('Direccion').AsString;
       vComponente := fInformee.facturadesign.ReportForm.FindComponent('dire1');
      (vComponente as TQRLabel).Caption :=  Copy(totalS, 1, 45);

       vComponente := fInformee.facturadesign.ReportForm.FindComponent('dire2');
       (vComponente as TQRLabel).Caption :=  Copy(totalS, 46, 45);
Responder Con Cita