Discussion :

[puzpuz_vannes]

J'ai crée une application delphi avec l'utlisation de 2 bases access assez grosses (10MO et 18MO, cette dernière fait 128500 lignes).

Une fois intégrées dans mon appli, la TDBGrid qui utilise la petite base fonctionne bien, mais l'autre refuse d'intégrer les lettres accentuées (éèàâ...) et les remplace par un trait vertical !! Du coup, mes recherches de mots accentués n'aboutissent pas !

Qqc aurait une recette pour moi?
merci

Sébastien

[Jeankiki]

Tiens, j'ai écris un petit outil qui fait les modifications nécessaire car j'ai eu le même problème que toi.
Voici la fonction que j'ai écrite pour faire les modifications.

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
function ConvertChar(S: string): string;
var
  i: integer;
begin
  if S = '' then
  begin
    Result := '';
    exit;
  end;
 
  for i:= 1 to length(S) do
  begin
    case Integer(S[i]) of
      130:  S[i] := 'é';
      138:  S[i] := 'è';
      133:  S[i] := 'à';
      151:  S[i] := 'ù';
      137:  S[i] := 'ë';
      132:  S[i] := 'ä';
      148:  S[i] := 'ö';
      129:  S[i] := 'ü';
      131:  S[i] := 'â';
      136:  S[i] := 'ê';
      140:  S[i] := 'î';
      150:  S[i] := 'û';
      147:  S[i] := 'ô';
      139:  S[i] := 'ï';
      135:  S[i] := 'ç';
    end;
  end;
  Result := S;
end;

Bonne chance.

Merci encore à chtiot de m'avoir mis sur la piste.

Jeankiki

[puzpuz_vannes]

Bonjour

Merci de ta réponse, mais comment la mettre en application car les données sont chargées en automatique car j'ai mis la source en automatique dans Datasource ?

Merci encore

Sébastien

[Jeankiki]

Je pense que le mieux est que tu fasses d'abord la conversion de toutes tes tables et ensuite tu ne devras plus t'en inquiéter.
Tu peux l'utiliser comme ceci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
while not NomTable.Eof do
  begin
    for i:= 0 to NomTable.FieldCount - 1 do
    begin
      NomTable.Edit;
      NomTable.Fields[i].AsString := ConvertChar(NomTable.Fields[i].AsString);
      NomTable.Post;
    end;
    NomTable.Next;
  end;

Bonne chance
Jeankiki