Reconnaissance de constante

AT · 17/12/2007, 12h22

Bonjour ,

Je dispose de constantes :

Const1 : H,Po,Cr,B,Kp,Ne,……
Const2 H=1, Po=12, Cr=41, B=27, Kp= 33.4, Nz =45,6 ……

Il s’agit de reconnaître les const1 qud elles sont écrites dans un edit afin d'obtenir comme l'image jointe (en trichant !) dans une listbox par ex
en évitant de remettre 2 fois la même.

merci

**ShaiLeTroll** · 17/12/2007, 12h42

Pour le moment, juste la structure du code, qui pourrait te donner des idées
... les Noms des variables peuvent-ils contenir les mêmes lettre gerne H et Ha, la Casse est-elle importante (si oui cela peut aider au découpage !), ... avec plus d'infos, j'aurais peut-être le temps de pondre un truc ...

Code Déplacé ICI ...

AT · 17/12/2007, 12h54

Bonjour,

Pour :

les Noms des variables peuvent-ils contenir les mêmes lettre gerne H et Ha,

Oui je peux avoir par ex : H, He, Hp ou C, Ca, Cs, Cp

merci

AT

**ShaiLeTroll** · 17/12/2007, 14h06

OK, donc la Casse peut nous servir, est-il possible que soit obligatoire une Majuscule au début du nom de variable, le reste en minuscule ?
Ainsi on ne pourra écrire que "He" ou "Ca" mais pas "EH", "CA", "eH", "cA", "eh" et "ca", ...

**Cl@udius** · 17/12/2007, 14h11

Salut

Ne pas oublier qu'une partie de la solution a déjà été donnée ici.

Mais il serait intéressant d'avoir un exemple de saisie dans le TEdit.

@+ Claudius

AT · 17/12/2007, 14h57

oui je sais pour la partie de solution, le tout est de lier le code precedant à la lecture d'un tableau de constante

Par ex je tape dans l'edit : HHeHpCCa
ici pas de probleme pour couper mon texte mais comment recuperer le decoupage et le lier au valeur de constante

merci

**ShaiLeTroll** · 17/12/2007, 18h32

Ah, donc Claudius a déjà fourni un algo, chic alors, donc on reprend la fonction ParseFormula et l'on rempli ConvertConstantes

Code :

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

1
2
3
4
5
6
7
type
  TConstanteType = (cNone, cH, cPo, cCr, cB, cKp, cNz);
  TConstanteNameValue = record
    Name: string[2];
    Value: Double;
  end;
  TConstanteNameValueDynArray = array of TConstanteNameValue;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
const
  CONSTANT_VALUES : array[TConstanteType] of TConstanteNameValue =
    (
      (Name: ''),
      (Name: 'H';  Value: 1 ),
      (Name: 'Po'; Value: 12 ),
      (Name: 'Cr'; Value: 41 ),
      (Name: 'B';  Value: 27 ),
      (Name: 'Kp'; Value: 33.4 ),
      (Name: 'Nz'; Value: 45.6 )
    );

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
 
function ConvertConstantes(const S: string; out A: TConstanteNameValueDynArray): Integer;
var
  ConstantesList: TStringList;
  I, D : Integer;
  K : TConstanteType;
begin
  ConstantesList := TStringList.Create();
  try
    ParseFormula(S, ConstantesList);
    Result := ConstantesList.Count; 
    SetLength(A, Result);
    D := 0;
    for I := 0 to Result - 1 do
    begin
      K := IndexOfConstanteValue(ConstantesList.Strings[I]);
      if K > cNone then
        A[I - D] := CONSTANT_VALUES[K]
      else
        Inc(D);
    end; 
    if D > 0 then
      SetLength(A, Result - D);
  finally
    ConstantesList.Free();
  end;
 
end;

Code :

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

1
2
3
4
5
6
7
8
function IndexOfConstanteValue(const AName: string): TConstanteType;
begin
  for Result :=	Low(CONSTANT_VALUES) to High(CONSTANT_VALUES) do
    if CONSTANT_VALUES[Result].Name = AName then
      Exit;
 
  Result := cNone;
end;