Discussion :

[Pouthou]

Bonjour !! c'est mon premier post depuis mon inscription j'espère suivre les règles et pas trop en demander .

Je suis nouveau dans le monde de delphi (version 7), et je me trouve bloquer dans l'optimisation de mon code :

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
Var : //Variables globales
Scan: string='Ceci est un test !';
test: integer=0;
 
procedure TForm1.btnEnvoyerClick(Sender: TObject);
var preDonnee : string;
    i : integer;
begin
  preDonnee := '';
for i:=1 to 3 do
  begin
    preDonnee := eEnvoi.text[i]; // Récupère les trois premiers caractères du champs eEnvoi.
  end;
  if preDonnee = 'AAA' then //Test si AAA
    begin
      scan := eEnvoi.text; //On stock la donne dans la variable globale pour un second passage servant au test
      test:=1;//Variable globale passée a une pour un second passage servant au test
      Memo1.Lines.Text := 'Veuillez saisir le BBB à la suite du AAA ';
    end;
  if (test = 1) and (preDonnee = 'BBB') then
    begin
      eEnvoi.text := scan+' '+eEnvoi.text; //On concatène la donnée à la précédente
      scan :='';
      test := 0;
    end
  else if (test = 0) and (preDonnee = 'BBB') then
    begin
       showmessage('Veuillez saisir le AAA avant le BBB');
  end;

A la fin eEnvoi.text est enregistré dans la BDD, et la donnée envoyé est AAA suivis de chiffres (ex:AAA00067428).

J'aimerai pouvoir paramétrer mes conditions (AAA/BBB) pour d'autres cas.
Exemples :
Si AAA / BBB
Si CCC / DDD
Si EEE / FFF
Si ... / ...

On m'a parler de fichier .ini et j'ai commencé à me documenter mais je n'avance pas plus pour autant. Donc voilà je sollicite votre aide, si vous avez une quelconque idée pour m'orienté sur ce problème je vous en serai reconnaissant

[SergioMaster]

Bonjour ,

je présume que ce bout de code a été généralisé ? a tel point d'ailleurs que je n'en vois pas vraiment la fonction !

première remarque

Code :

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

1
2
3
4
for i:=1 to 3 do
  begin
    preDonnee := eEnvoi.text[i]; // Récupère les trois premiers caractères du champs eEnvoi.
  end;

pourrait avantageusement remplacé par

Code :

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

predonnee:=copy(eEnvoi.text,1,3)

A la fin eEnvoi.text est enregistré dans la BDD, et la donnée envoyé est AAA suivis de chiffres (ex:AAA00067428).

comment en arrive t-on là !?

pour ce qui est des couples oui effectivement , on pourrait passer par un fichier ini qui contiendrait a peu près ceci :

[Couples]
AAA=BBB
CCC=DDD
EEE=FFF

il 'suffirait' alors , à la lecture de la première partie lire a l'intérieur
par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses ... Inifiles ...;
 
 
Fini:=TIniFile.Create(monfichier.ini);
....
Couple:=FIni.ReadString('Couples',copy(eEnvoi.text,1,3),''); 
if Length(Couple)=0 
   then Showmessage('Erreur')
   else Memo1.Lines.Text := 'Veuillez saisir le '+Couple+' à la suite du '+copy(eEnvoi.text,1,3);
...   
 
FIni.Free;

[Pouthou]

Merci Sergio.
Oui, le code est généralisé, il sert lors de la saisie d'un "code" par un utilisateur à enregistrer ce code dans une BDD.
Si le début du code (3 premières lettres) correspond à un certain Type ('AAA') il faut le second Type associé ('BBB'), on concatène ces deux codes et pour l'enregistrer dans la BDD. Ce qui va donner pour AAB00001 => AAB00001 dans la BDD
Mais pour AAA00001 => Attente de BBB => BBB00001 => AAA00001 BBB000001 dans la BDD.

Je n'ai pas mis la suite du code pensant que ça n'avait pas grande importance par rapport au reste, mais je l'ajoute.

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
Var: //Variables globales
preDonnee : string;
procedure TForm1.btnEnvoyerClick(Sender: TObject);
var Fini:tIniFile;
  couple : string;
begin
  FailBDD :=0;
  //Clear du mémo pour éviter la saturation en donnée
  Memo1.Lines.clear;
  predonnee:= predonnee + ' ' +eEnvoi.text;
  Fini:=TiniFile.Create('..\Exo Partie1\Configuration1.Ini');
  Couple:=FIni.ReadString('COUPLES',copy(eEnvoi.text,1,3),'');
  //Si le champ texte n'est pas remplis on préviens l'utilisateur
  If eEnvoi.Text =''
    then ShowMessage('Veuillez renseigner le champ texte')
  else if Length(Couple)=0 then
    Begin
      with ZQuery4 do
      Begin
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO Tracabilitee (Donnee) VALUES (:Donnee) ');
        ParamByName('Donnee').AsString := predonnee;
        Try ExecSQL;
          except  FailBDD := 1;
                  Memo1.Lines.Clear;
                  Memo1.Lines.Text := 'Erreur, Les informations de la base de donnée saisie ne sont pas bonnes veuillez vous référer à la documentation pour résoudre le problème.';
        end;
      end;
    preDonnee := '';
    end
    else Memo1.Lines.Text := 'Veuillez saisir le '+Couple+' à la suite du '+copy(eEnvoi.text,1,3);
    FIni.Free;

Je pense avoir résolu mon problème grâce à ton aide en tout cas =) Je te remercie ! (Avec cette méthode je peux faire une ou plusieurs conditions successives, il me suffit juste de bien construire mon .ini : c'est parfait !)

[Papy214]

Tant mieux si tu as résolu ton problème mais je vais être un peu curieux. Ce code te renvoyait vraiment les 3 premiers caractères de la chaîne ???

Code :

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

1
2
3
4
5
 
for i:=1 to 3 do
  begin
    preDonnee := eEnvoi.text[i]; // Récupère les trois premiers caractères du champs eEnvoi.
  end;

[Pascal Jankowski]

De toute façon SergioMaster lui a suggéré d'utiliser :

Code :

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

1
2
 
predonnee:=copy(eEnvoi.text,1,3)

Donc, cela lui règle son problème, mais je pense qu'il l'aurait dans doute rapidement remarqué.

En revanche, on pourrait peut-être lui conseiller d'utiliser la fonction "Format" pour le formatage de ses chaînes et de ressortir tous les "string" de sa procédure en les plaçant en "resourcestring" et également de scinder cette "big" procédure en plus petites parties, facilitant ainsi la relecture et la maintenance du code.

[Pouthou]

Tant mieux si tu as résolu ton problème mais je vais être un peu curieux. Ce code te renvoyait vraiment les 3 premiers caractères de la chaîne ???

Code :

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

1
2
3
4
5
 
for i:=1 to 3 do
  begin
    preDonnee := eEnvoi.text[i]; // Récupère les trois premiers caractères du champs eEnvoi.
  end;

Non il manque bien sur "preDonnee +" avant eEnvoi.text[i]; ce qui donne :

Code :

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

preDonnee := preDonnee + eEnvoi.text[i];

Sinon il ne récupère que le troisième ^^ (Va savoir pourquoi il n'y était pas =°)

En revanche, on pourrait peut-être lui conseiller d'utiliser la fonction "Format" pour le formatage de ses chaînes et de ressortir tous les "string" de sa procédure en les plaçant en "resourcestring" et également de scinder cette "big" procédure en plus petites parties, facilitant ainsi la relecture et la maintenance du code.

Je commence à m'y mettre mais je ne connaissait pas "Format" et "resourcestring" J'vais y jetter un oeil =)