Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans un programme, je souhaite comparer deux chaînes. Je fais dans une fonction que j'appelle de la manière suivante :

Code :

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

1
2
    Txt:= Copy(txLibelle.text, LgIntro, 255);
    txNumAdh.Text:= IntToStr(AdhToNoAdh(Txt));

où Adherents est du type :

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
  TAdherent = record
    NoAdh: Integer;
    DateInscript: string;
    Section: Integer;           {Permet de répartir les adhérents par sections}
    Civilite: Integer;
    Nom: string;
    Prenom: string;
    ...
  end;
 
  TAdherents = array of TAdherent;
 
...
 
Adherents: TAdherents;

La fonction est la suivante :

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
function AdhToNoAdh(NomAdh: string): Integer;
{Retourne le N° d'adhérent "NoAdh" correspondant à son Nom.}
var
  i: Integer;
  Str1, Str2: string;
begin
  Result:= -1;
  for i:= 0 to High(Adherents) do
  begin
    Str1:= AnsiLowerCase(Adherents[i].Nom);
    Str2:= AnsiLowerCase(NomAdh);
    if AnsiCompareText(Str1, Str2) = 0 then
//   if Str1 = Str2 then
    begin
      Result:= Adherents[i].NoAdh;
      Break;
    end;
  end;
end;

Impossible d'obtenir une comparaison, même en utilisant toutes les différentes possibilités offertes par Lazarus :

Name Description
AnsiCompareStr Compare two strings
AnsiCompareText Compare two strings, case insensitive
AnsiLowerCase Convert string to all-lowercase
AnsiStrComp Compare strings case-sensitive
AnsiStrIComp Compare strings case-insensitive
AnsiStrLComp Compare L characters of strings case sensitive
AnsiStrLIComp Compare L characters of strings case insensitive
AnsiStrLower Convert string to all-lowercase
AnsiStrUpper Convert string to all-uppercase
AnsiUpperCase Convert string to all-uppercase
CompareStr Compare two strings case sensitive
CompareText Compare two strings case insensitive

Je crois les avoir essayées pratiquement toutes, rien n'y fait.

Je n'y comprends plus rien.

Avez-vous des idées ?

(Lazarus 0.9.30 sur Windows XP SP3)

Merci de votre aide.

[e-ric]

Salut


Normalement avec AnsiCompareText, tu n'as pas à convertir en minuscule.
Par contre, pourrais-tu vérifier que tu n'a pas des caractères parasites en début et/ou fin de tes chaînes, du genre des espaces en fin de l'une et pas de l'autre.
C'est assez classique, il faut dans ce cas employer la fonction Trim

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
function AdhToNoAdh(NomAdh: string): Integer;
{Retourne le N° d'adhérent "NoAdh" correspondant à son Nom.}
var
  i: Integer;
  Str1, Str2: string;
begin
  Result:= -1;
  for i:= 0 to High(Adherents) do
  begin
    if AnsiCompareText(Trim(NomAdh), Trim(Adherents[i].Nom)) = 0 then
    begin
      Result:= Adherents[i].NoAdh;
      Break;
    end;
  end;
end;

Sinon, fais un essai en affichant les chaînes de ton tableau et celle que tu passe en paramètre.

@+

[ChPr]

Bon, j'ai trouvé. Le problème vient de l'appel de la fonction où txt est issu d'un copy avec une longueur de 255. Je l'ai remplacé par :

Code :

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

1
2
3
    Txt:= txLibelle.Text;
    Delete(Txt, 1, LgIntro);
    txNumAdh.Text:= IntToStr(AdhToNoAdh(Txt));

ça fonctionne tout seul.

Cordialement.

Pierre

[e-ric]

????