Recherche dans un ValueListEditor

Résolu
buguetj
Messages postés
77
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
5 avril 2012
- 7 sept. 2008 à 15:33
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
- 8 sept. 2008 à 09:35
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...
A voir également:

2 réponses

f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
37
8 sept. 2008 à 09:35
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%" />
3
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
7 sept. 2008 à 18:52
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
0