Recherche dans un ValueListEditor [Résolu]

Signaler
Messages postés
77
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
5 avril 2012
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Bonjour, j'ai ressencé plusieurs information dans un TValueListEditor, parallèlement à ce composant j'ai créer un TEdit, un TLabel et un TButton.
En fait l'Edit sert à rechercher un terme (présent ou non dans le ValueList Editor) et lorque j'appui sur le button je souhaiterais que si le terme que j'ai écris dans le TEdit est recensé dans le ValueListEditor que le TLabel est pour valeur Caption: "Terme présent".

Pour cela j'ai essayé ceci: If TEdit1.Text=ValueListEditor.String then Label1.Caption:=Terme présent";
mais cette ligne ne fonctionne pas, je fais donc appel à votre aide...

2 réponses

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
Uses StrUtils;

function FindValue(const Value: String; VLE: TValueListEditor; const Start: integer=0): integer;
var N, SP : integer;
begin
  result := -1;
  if Start >= VLE.Strings.Count then
    SP := 0
  else
    SP := Start;

  for N := Start to VLE.Strings.Count-1 do
  begin
    if PosEx(Value, VLE.Strings[N], Pos('=', VLE.Strings[N])) <> 0 then
    begin
      result := N;
      Break;
    end;
  end;
end;

function FindKey(const Key: string; VLE: TValueListEditor): integer;
begin
  if not VLE.FindRow(Key, Result) then
    result := -1;
end;




<hr size="2" width="100%" />
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
bonsoir,
connais pas le TValueListEditor..??

Mais si c'est une liste, c'est normal que ça ne fonctionne pas..
il faudrait tester l'ensemble des valeurs possibles du TValueListEditor.

cantador