Discussion :

[Papy214]

Bonjour

Code :

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

1
2
3
4
5
6
7
 
var
  A, B: string;
begin
  A := '2';
  B := '12,8';
  ShowMessage(CompareStr(A, B).ToString);

affiche 1 , semblant indiquer que 1 est supérieur à 12,8.
Je sais, la comparaison se fait sur chaque caractère, donc 2 est bien supérieur à 1.

Dans mes comparaisons, à chaque fois, j'ajoute autant de 0 que nécessaire pour avoir 2 chaînes de longueurs identiques afin d'avoir une comparaison logique (dans mon cas précis) (un peu lourd).
L'autre solution serait de convertir en valeurs numériques mais là aussi ce serait un peu lourdingue.

Est-ce qu'il n'y aurait pas une astuce ou une option de compilation pour que, dans ce bloc de code, Delphi tienne aussi compte de la longueur de la chaîne ?
B étant de longueur supérieure à celle de A, il déduirait que B est forcément supérieur.
Et si les chaînes sont de longueurs égales, il prendrait en compte les caractères un par un.

[sgmsg]

Ajouter des zéros n'est pas très gourmand...

Tu peux aussi conserver la chaine jusqu'à la virgule...

Mais de toute façon je vois mal comment t'en sortir sans faire un peu de 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
30
31
32
33
34
function APlusGranQueB(A,B:string)
var C:string;
     pA,pB:integer;
begin
    result:=false;
 
    pA:=Pos(',',A);
    if pA=0 then begin//S'assure qu'il y ait le séparateur décimal dans chaque chaine
         A:=A+',';
         pA:=length(A);
    end;
    pB:=Pos(',',B);
    if pB=0 then begin//S'assure qu'il y ait le séparateur décimal dans chaque chaine
         B:=B+',';
         pB:=length(B);
    end;
 
    if pA>pB then begin
        result:=true;
        exit;
    end;
    if pB>pA then exit;
 
    C:=StringOfChar('0',max(length(A),Length(B));//Formate les nombre pour avoir la même longueur
    for i:=1 to length(A) do C[i]:=A[i];
    C:=StringOfChar('0',length(C));
    for i:=1 to length(B) do C[i]:=B[i];
 
    if A>B then begin
         result:=true;
         exit;
    end;
 
end;

Pas testé

[Papy214]

intéressant ! Merci pour le code. Je vais tester ça.
J'ai tout de même un petit doute sur le formatage où tu remplis C 2 fois de suite.
Mais il est vrai que je viens de me lever .... pas encore bien réveillé :-)

[sgmsg]

J'ai tout de même un petit doute sur le formatage où tu remplis C 2 fois de suite.

Tout à fait!!!

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
function APlusGranQueB(A,B:string)
var pA,pB:integer;
begin
    result:=false;
 
    pA:=Pos(',',A);
    if pA=0 then begin//S'assure qu'il y ait le séparateur décimal dans chaque chaine
         A:=A+',';
         pA:=length(A);
    end;
    pB:=Pos(',',B);
    if pB=0 then begin//S'assure qu'il y ait le séparateur décimal dans chaque chaine
         B:=B+',';
         pB:=length(B);
    end;
 
    if pA>pB then begin
        result:=true;
        exit;
    end;
    if pB>pA then exit;
 
    A:=A+StringOfChar('0',max(0,Length(B)-length(A));//Formate les nombres pour avoir la même longueur
    B:=B+StringOfChar('0',max(0,Length(A)-length(B));
 
    if A>B then begin
         result:=true;
         exit;
    end;
 
end;

[Papy214]

:-) J'étais donc mieux réveillé que je ne le pensais

[Charly910]

Bonjour,

rapidité à tester par rapport à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function Comparaison(const S1, S2: string): Integer;
// Convertit S1 et S2 en nombre et les compare.
//La valeur renvoyée est inférieure à 0 si S1 est inférieure à S2,
//0 si S1 égal S2, ou supérieure à 0 si S1 est supérieure à S2.
Var
  N1, N2 : Double ;  // Ou plus ?
Begin
  N1 := StrToFloatDef(S1,0) ;
  N2 := StrToFloatDef(S2,0) ;
  Result := CompareValue(N1,N2) ;
End ;

A+
Charly