Ver Mensaje Individual
  #1  
Antiguo 11-08-2012
JXJ JXJ is offline
Miembro
 
Registrado: Apr 2005
Posts: 2.473
Reputación: 16
JXJ Va por buen camino
Question ¿formateador de codigo puede hacer esto?

Hola pues que tengo una duda.

hay algun formateador de codigo para delphi que
se puede configurar para que de esto

Código Delphi [-]

        ID := BD.Query1.Fields[0].AsInteger; // ALMACEN_ID
        RFC_PERTENECE_EMPRESA := BD.Query1.Fields[1].AsString;
        // RFC_PERTENECE_EMPRESA
        CODIGOPEDI := BD.Query1.Fields[2].AsString; //
        UCODADUANA := BD.Query1.Fields[3].AsString; //
        PEDIMENTONUM := BD.Query1.Fields[4].AsString; //
        PEDIMENTOFECHA := BD.Query1.Fields[5].AsDateTime; //
        PEDESTATUS := BD.Query1.Fields[6].AsInteger; //
        Aduana := BD.Query1.Fields[7].AsString; //
        CODIGOADU := BD.Query1.Fields[8].AsString; //
        STATUS := BD.Query1.Fields[9].AsInteger; // STATUS
        BD.Query1.Next;

me de este codigo bonito que ami me gusta asi por que me da facilidad para leerlo

Código Delphi [-]
       

        ID                     := BD.Query1.Fields[0].AsInteger; // ALMACEN_ID
        RFC_PERTENECE_EMPRESA  := BD.Query1.Fields[1].AsString;        // RFC_PERTENECE_EMPRESA
        CODIGOPEDI             := BD.Query1.Fields[2].AsString; //
        UCODADUANA             := BD.Query1.Fields[3].AsString; //
        PEDIMENTONUM           := BD.Query1.Fields[4].AsString; //
        PEDIMENTOFECHA         := BD.Query1.Fields[5].AsDateTime; //
        PEDESTATUS             := BD.Query1.Fields[6].AsInteger; //
        Aduana                 := BD.Query1.Fields[7].AsString; //
        CODIGOADU              := BD.Query1.Fields[8].AsString; //
        STATUS                 := BD.Query1.Fields[9].AsInteger; // STATUS
        BD.Query1.Next;
Responder Con Cita