Recherche dans un tableau de record

Bonjour

J’ai

Code:

---

1 2 3 4 5 6

const t:array [0..8]of string=('Mn','Cl','H' ,'Cr','O','S',’F’,……..);   const tre:array[0..20]of record reference : String; valeur : String; end = ((reference:'F2/HF';valeur:'3.05 V'),………..

---

Puis dans une listBox j’ajoute :

Code:

---

1 2 3 4

for i:=Low(tre) to High(tre) do begin Listbox1.Items.Add(tre[i].reference); End;

---

Je souhaite créer un “moteur de recherche” Par exemple je tape un des éléments de t (ex :F)
Je souhaite rechercher tous les éléments de tre qui contienne F puis les afficher dans un RichEdit ou une autre ListBox

merci

Salut

Avec une simple boucle depuis Low(tre) à High(tre), tu isoles les occurrences avec un Pos.

@+ Claudius

Bonjour,
Je rectifie les erreurs !!:(:(

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; begin s:=edit1.text; for i:=Low(tre) to High(tre) do begin if pos(s,tre[i].reference)<>0 then Listbox5.Items.Add(tre[i].reference); end; end;

---

Mon code ne fait pas la difference entre par ex F et Fe ou Fs..... Il recupere tout ce qui contien F dans tre

J'ai un bon début de piste:king:

Re,

Citation:

---

Envoyé par AT

Mon code ne fait pas la difference entre par ex F et Fe ou Fs..... Il recupere tout ce qui contien F dans tre

---

Il me semble que c'est ce que tu avais demandé.

Citation:

---

Envoyé par AT

Je souhaite rechercher tous les éléments de tre qui contienne F puis les afficher dans un RichEdit ou une autre ListBox

---

@+

Bonjour,

Citation:

---

Mon code ne fait pas la difference entre par ex F et Fe ou Fs

---

... ben oui, pour différencier il suffit d'un If pos('Fe',string)=1 pour cibler les molécules qui commencent par 'Fe' ou un If pos('Fe',string)>0 pour cibler celles où le 'Fe' peut être logé en n'importe quelle position de la string.

A+ :D

bonjour,


je tape dans un edit des lettres, Je ne peux faire un

Code:

---

If pos('Fe',string)=1

---

pour chaque cas ,Il y a trop de possibilité

Bonjour,

A AT :

Citation:

---

je tape dans un edit des lettres, Je ne peux faire un
If pos('Fe',string)=1 pour chaque cas ,Il y a trop de possibilités

---

... et tu ne peux pas faire :

Code:

---

1 2 3 4

If pos(Edit1.text, string)=1 then ... If pos(Edit1.text, string)=0 then

---

en tapant 'Fe' dans le Edit ? Oui/non ?

... on peut même remplacer le 1 et le 0 par une var locale qu'on passe à 0 ou à 1 selon qu'un RadioButton ou autre chose est Checked ou not Checked selon que l'on veut viser uniquement les 'Fe' (c.à.d le contenu de l'Edit) situés en début de molécule où viser tous les 'Fe' quelle que soit leur position dans la string.

A+ :D

En fait c'est surtout pour differencier C de Cs ou Cr par exemple

je reprend mon code :

Code:

---

1 2 3 4 5 6 7

s:=edit1.text; for i:=Low(tre) to High(tre) do begin if pos(s,tre[i].reference)<>0 then Listbox5.Items.Add(tre[i].reference); end;

---

Si je tape C : j'affiche aussi Cs, Cr.....

Ayant repris mon travail je n'ai + beaucoups de temps pour me pencher sur la programmation et je ne peux rentrer chez moi tous les soirs ( je bosse à 150 km de chez moi :wow:)

merci à tous en tout cas :chin: