Ver Mensaje Individual
  #11  
Antiguo 18-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Estaba pensando que quizá el amigo rubio, deseaba la identación en relación a las tres últimas cifras del campo CODIGO, de ser así podría hacer algo como:
Código Delphi [-]
{ DESCRIPCIÓN OnGetText }
procedure TForm1.DESCRIPCIONGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  Ident: Integer;
  Codigo: string;
begin
  Codigo:= Query.FieldByName('CODIGO').AsString;
  Ident:= (StrToInt(Codigo) - StrToInt(Codigo[1] + StringOfChar('0',Length(Codigo)-1))) div 100;
  Text:= StringOfChar(' ', Ident) +  Query.FieldByName('DESCRIPCION').AsString;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-10-2011 a las 15:46:04.
Responder Con Cita