Discussion :

[The Jos]

Pfff,

J'ai cherché mais en vain.. alors je m'en remet a vous

Version de delphi : 5

1) Avec certains format de base de données les é, è et autres accents circonflexes s'affichent mal dans un dbgrid. J'ai des signes ésotériques à la palce.

2) Comment ajuster les colonnes d'un dbgrid au contenu. Comme mes champs sont de taille fixe la largeur d'une colonne prend la valeur maximale du champ et pas celle du contenu réel.

3) Est-ce que vous connaissez un soft (libre de pref) permettant de convertir une base en plusieurs autres formats.

Merci beaucoup

[popo]

1) Il faut regarder du coté de l'encodage des données dans la bases
2) Il suffit de définir genre 2 ou 3 pixel par caractères et de le multiplier par le Length de la données

[Just-Soft]

Salut;

1. on a déjà répondu!
2. un code tout prêt à l'emploi, sans garantie, en plus il n'est pas à moi :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: ResizeAllColumns(Sender as TDbGrid);
    1: ResizeColumn(Sender as TDbGrid);
  end;
end;
procedure TForm1.ResizeColumn(Grid: TDbGrid);
var
  MaxWidth, //Largeur maximale de la colonne
  MinWidth, //Largeur minimale de la colonne
  CurrentWidth: integer; //Largeur actuelle
  FieldSize: integer; //Taille du champ d'après son contenu
  DS: TDataSet;
  BookMark: TBookmark;
begin
 
  //Pour alléger l'écriture !...
  DS := Grid.DataSource.DataSet;
  with Grid do
  begin
    //Mémoriser la ligne actuellement sélectionnée
    BookMark := DS.GetBookmark;
    //Pour ne pas voir toutes les lignes défiler
    Ds.DisableControls;
    //Parcours de toutes les lignes de l'ensemble de données
    DS.First;
    MaxWidth := Canvas.TextWidth(Columns[SelectedIndex].Title.Caption) + 5;
    MinWidth := 0;
    while not DS.Eof do
    begin
      //Déterminer la largeur en pixels du contenu de l'enregistrement lu
      FieldSize :=
        Canvas.TextWidth(DS.FieldByName(SelectedField.FieldName).AsString) + 5;
      //Réajuster la largeur maximale ?
      if MaxWidth < FieldSize then
        MaxWidth := FieldSize;
      //Réajuster la largeur minimale ?
      if MinWidth > FieldSize then
        MinWidth := FieldSize;
      DS.Next;
    end;
    //Largeur de la colonne cliquée
    CurrentWidth := Columns[SelectedIndex].Width;
    if CurrentWidth <> MaxWidth then
      CurrentWidth := MaxWidth;
    if CurrentWidth < MinWidth then
      CurrentWidth := MinWidth;
    //Affectation de la nouvelle largeur à la colonne
    Columns[SelectedIndex].Width := CurrentWidth;
    //repositionner le curseur de l'ensemble de données
    DS.GotoBookmark(BookMark);
    DS.FreeBookmark(BookMark);
    //Rétablir l'affichage du TDbGrid
    DS.EnableControls;
  end;
end;

3. DataPump de Delphi.

Bonne chance

[The Jos]

Ok merci pour tout.

Miaitenant ca roule...