IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Bases de données Delphi Discussion :

Comment afficher un montant dans un imprimé


Sujet :

Bases de données Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Inscrit en
    Juin 2006
    Messages
    82
    Détails du profil
    Informations forums :
    Inscription : Juin 2006
    Messages : 82
    Par défaut Comment afficher un montant dans un imprimé
    Pour afficher un montant dans un imprimé
    Comme ce qui est montré dans l'image
    Comment puis-je faire
    j'ai utilisé delphi7 et absolute database

  2. #2
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 089
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 089
    Par défaut
    Il n'y a rien de tout prêt pour remplir les cases d'un formulaire pré-imprimé
    Dans ton outil de rapport, cherche si tu as options d'espace des caractères dans un libellé et un alignement à droite

    Sinon, il y a aussi TabbedTextOut ou encore ExtTextOut
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre éclairé
    Inscrit en
    Décembre 2004
    Messages
    390
    Détails du profil
    Informations forums :
    Inscription : Décembre 2004
    Messages : 390
    Par défaut
    Séparer les chiffres du montant un par un et les placer par tâtonnement jusqu'à la bonne position !

  4. #4
    Membre actif
    Inscrit en
    Juin 2006
    Messages
    82
    Détails du profil
    Informations forums :
    Inscription : Juin 2006
    Messages : 82
    Par défaut
    Citation Envoyé par akli_agha Voir le message
    Séparer les chiffres du montant un par un et les placer par tâtonnement jusqu'à la bonne position !
    merçi
    mais Comment séparer un montant d'une résultat de calcule

  5. #5
    Membre éclairé
    Inscrit en
    Décembre 2004
    Messages
    390
    Détails du profil
    Informations forums :
    Inscription : Décembre 2004
    Messages : 390
    Par défaut
    Convertir le montant en chaine de caractère et utiliser la fonction copy qui permet d'extraire les caractères un à un.

    Voir l'aide de Delphi.

  6. #6
    Membre éclairé
    Avatar de JP.NUAGE
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    777
    Détails du profil
    Informations personnelles :
    Âge : 83
    Localisation : France

    Informations forums :
    Inscription : Avril 2006
    Messages : 777
    Par défaut
    J'ai travaillé (autrefois avec dBase 3+ : il y a avait une fonction qui permettait d'extraire un ou plusieurs caractères d'une chaine. Je l'ai réécrite en Delphi et elle me sert bien. Si ça peut t'aider

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Function  SUBSTR(xZone : String; xDebut, xLongueur : integer) : string;
     
    var xTemp : string;
        xLen, xTotal : integer;
     
    begin
       xTotal := Length(xZone);
       xLen := Length(xZone)+1-xDebut;
       if xDebut>xTotal then
          begin
             Result := '';
             exit
          end;
       xTemp := RightStr(xZone,xLen);
       xLen := Strlen(Pchar(xTemp));
       if xLongueur>xLen then
          Result:=xTemp
       else
          Result := LeftStr(xTemp,xLongueur);
     
    end;
    xZone est la chaine que tu traites (ton montant que tu auras converti en string)
    xDebut est la position du premier caractère à extraire : chez toi cela ira de 1 à la longueur de ton nombre
    xLongueur est le nombre de caractères à extraire : chez toi toujours 1

    la fonction renvoie le (toujours chez toi) ou les caractères extraits

    Ensuite, comme il t'est suggéré, tu mets des espaces entre les chiffres que tu as extraits et là, en effet, il va y avoir du tâtonnement

    Bon courage

Discussions similaires

  1. Comment afficher un tableau dans TStringGrid ?
    Par doubledj dans le forum Composants VCL
    Réponses: 3
    Dernier message: 19/09/2005, 02h21
  2. Comment afficher des JPEG dans une application Delphi ?
    Par Bouguennec dans le forum Composants VCL
    Réponses: 4
    Dernier message: 17/09/2005, 21h18
  3. Comment afficher chaque fiche dans la barre des taches ?
    Par HASSANAIT dans le forum Composants VCL
    Réponses: 2
    Dernier message: 21/08/2005, 03h13
  4. Comment afficher les toolTipText dans une zone de statut ?
    Par nicok01 dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 28/01/2005, 13h32
  5. Comment afficher FLASH directement dans le EMAIL
    Par Bilmagic dans le forum Flash
    Réponses: 3
    Dernier message: 05/06/2003, 00h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo