Discussion :

[BuzzLeclaire]

bonjour, bonsoir

On le c'est tous les Name de composant n'accepte pas certain caractères.

Je doit créer en dynamique dans mon appli Une form par table Access, hors Acces accepte quaziement tous les caractères. Etant donnée que l'utilitaire que je créer peux ouvrir n'importe qu'elle base, je peu etre confronté à se problème.

J'ai réalise ce code pour modifier les caractères interdit avant la cr"éation de la form

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
// ...
   // On retire les caractères interdits
        NameFenetre := StringReplace(NomFenetreFille,' ','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'-','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'/','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'@','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'&','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'*','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'é','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'è','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'à','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'ï','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'î','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'ê','',[rfReplaceAll,rfIgnoreCase]);        NameFenetre := StringReplace(NameFenetre,'#','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'ô','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'ö','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'â','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'ç','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'ù','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'%','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'!','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'.','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'?','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,',','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'^','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'¨','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'µ','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'$','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'£','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'<','',[rfReplaceAll,rfIgnoreCase]);
        NameFenetre := StringReplace(NameFenetre,'>','',[rfReplaceAll,rfIgnoreCase]);
 
      With TFTravail.Create(Self) do
      Begin
        Name := NomFenetre;
        Caption := 'Table ' + NomFenetreFille;
        Height := 350;
        Width := 550;
        StatusBar1.Panels[2].Text := Self.StatusBar1.Panels[0].Text;
      end;
// ...

Existe-t-il un moyen plus rapide pour procéder ?

[BuzzLeclaire]

bon,

Pour essayer j'ai fais cela

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
function CarAutoriser(s: String): Boolean;
Const
  Car: array[0..61] of char =
  (
  '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y','z',
  'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y','Z'
  );
var
  i,j : Integer;
  Trouver: Integer;
Begin
  Result := true;
 
  for i:= 0 to Length(s)-1 do
  begin
    Trouver := 0;
    for j:= 0 to high(Car) do
    Begin
      if s[I] = car[j] then
      begin
        Trouver:= 1;
        Break;
      end;
    end;
    if Trouver = 0 then
    Begin
      Result := False;
      exit;
    end;
  end;
 
end;

Cette function retourne faux si un caractere dans la chaine S n'ai pas supporté.
Mais mlalheureusement elle fonctionne pas à cause que le test
if s[i] = car[j] then

s[i] est vide,

alors qu'avant la boucle for j:=0 to high(car) do
s[i] est bien égale au caractère de position dans s !!!!!

un petit coup de main...

[pepi22]

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
 
Const
  IllegalInput : array[0..x] of char = ( '-', '/', '@',...,); //Ajoutez les autres
 
 
function ReplaceAll(str : string): string;
var
  i : integer;
begin
  for i := 1 to Length(str) do
   begin
     if str[i] in IllegalInput then
       str[i] := ' ';
   end;
result := Trim(str);
end;

[Andnotor]

Hey Buzz!

1. Une chaîne commence au caractère 1, pas 0!

2. Donner un nom à ta fiche n'est pas obligatoire. Tu peux créer autant de fiche sans nom que tu le souhaites. Mais si tu veux absolument en assigner un, tu devras encore t'assurer qu'il est unique parmi les autres composants.

[Nopain]

Delphi 2008/2009 prennent en charge l'UNICODE. Vivement que j'y mette les mains dessus

[BuzzLeclaire]

Merci à vous.

La solution de pepi effectivement fonctionne (le cout du trim pas mal).

Mais entre temps j'ai regarder mon programme et je me suis dit que cela servais à rien de les només. c'etaitt trop contraignant.

j'ai donc opter pour la create sans name, d'ailleur AndNotOr en parle justement.

Merci vous avez répondu à ma problèmatique.

[Nopain]

Merci a eux. Et n'oublie pas le tag "résolu"

[BuzzLeclaire]

Merci a eux. Et n'oublie pas le tag "résolu"

Déjà fait avant ton post lol...