Discussion :

[gegila]

Bonjour à tous

Je veux afficher à partir d'une Base SQLite les donnée dans un memo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 // affichage de la liste des comptes
  MemoComptes.Lines.Add(String.Format('%18s|%35s|%25s|', [' Nom ', ' Banque ',  ' Solde Initial ']));
  // Ajouter une ligne au mémo pour chaque enregistrement de la table.
 
  while not DataModule2.FDQueryMaitre.Eof do
  begin
    MemoComptes.Lines.Add(String.Format('%18d|%-35s|%-25s|',[DataModule2.FDQueryMaitre.FieldByName('NomCpt')
      .AsString + '         ' + DataModule2.FDQueryMaitre.FieldByName('Banque')
      .AsString + '                    ' + FloatToStr(DataModule2.FDQueryMaitre.FieldByName
      ('SoldeInit').AsFloat) + ' ' + #128]));
    DataModule2.FDQueryMaitre.Next;
  end;

Lors de la première partie (affichage des Entêtes de colonne Pas de Pb tout est OK
Par contre dans la boucle While j'obtient le message d'erreur suivant


Merci pour vos conseils

[SergioMaster]

Bonjour,

le premier argument de vôtre format Format('%18d|%-35s|%-25s|'demande un entier %d or vous lui fournissez un string
vous pourriez aussi l'écrire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
format('%18s         |%35s                    |%8.2f',[
DataModule2.FDQueryMaitre.FieldByName('NomCpt').AsString,
DataModule2.FDQueryMaitre.FieldByName('Banque').AsString,
DataModule2.FDQueryMaitre.FieldByName('SoldeInit').AsFloat]);

il faudrait aussi expliquer cette histoire de | et de #128 et les espaces ?

Si vous avez besoin d'un longueur fixe pensez au -
exemple pour le premier terme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format('%.28s|',[DataModule2.FDQueryMaitre.FieldByName('NomCpt').AsString])

si je regarde le reste du code je pencherais pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  MemoComptes.Lines.Add(String.Format('%-20s|%-35s|%-25s|', [' Nom ', ' Banque ',  ' Solde Initial ']));
  // Ajouter une ligne au mémo pour chaque enregistrement de la table.
 
  while not DataModule2.FDQueryMaitre.Eof do
  begin
    MemoComptes.Lines.Add(String.Format('%-20s|%-35s|%23.2f|',
             [DataModule2.FDQueryMaitre.FieldByName('NomCpt').AsString,
              DataModule2.FDQueryMaitre.FieldByName('Banque').AsString,
             FloatToStr(DataModule2.FDQueryMaitre.FieldByName('SoldeInit').AsFloat)]));
    DataModule2.FDQueryMaitre.Next;
  end;

[blonde]

Il faut que tu fournisses un entier pour ton premier argument, c'est ce que tu as noté dans le formatage : "d"

Essaye de remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 '%18s|%-35s|%-25s|'

Edit : Fichtre, je n'ai pas été assez rapide pour répondre Sergio est très très véloce

[SergioMaster]

Sergio est très très véloce

[blonde]

Si vous avez besoin d'un longueur fixe pensez au .
exemple pour le premier terme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format('%.28s|',[DataModule2.FDQueryMaitre.FieldByName('NomCpt').AsString])

je que pour conserver une longueur fixe il faut utiliser le caractère "-"

Doc :
Un spécificateur de largeur définit la largeur de champ minimale pour une conversion. Si la chaîne résultante est plus courte que la largeur de champ minimale, elle est comblée par des espaces afin d'accroître la largeur de champ. Par défaut, le résultat est justifié à droite en faisant précéder la valeur d'espaces, mais si le spécificateur de format contient un indicateur de justification à gauche (un caractère tiret "-" précédant le spécificateur de largeur), le résultat est justifié à gauche par l'ajout d'espaces après la valeur.

[blonde]

Bon, j'ai rien dit, je viens de tester, ça fonctionne

[gegila]

Merci à tous pour vos réponses
En effet j'avais oublié que c'était un entier le premier champ. J'était parti sur un select * From nom de ma table

l'utilisation de | me permet de faire des séparations entre les ligne et #128 correspond à l'affichage du symbole Euro

et je me suis ravisé que je ne voulais pas afficher l'index.

Donc j'ai essayé est cela marche

Merci pour vos précieuses réponses

[SergioMaster]

#128 correspond à l'affichage du symbole Euro

Ah, je n'avais pas vérifié, dans ce cas un %9.2m fera le nécessaire (sauf si bien sûr le poste est configuré pour un pays hors €uro )