Faire une recherche dans une stringgrid [Résolu]

cs_morinxav2
Messages postés
69
Date d'inscription
mercredi 30 juin 2004
Dernière intervention
6 octobre 2011
- 22 juil. 2008 à 20:26 - Dernière réponse : cs_morinxav2
Messages postés
69
Date d'inscription
mercredi 30 juin 2004
Dernière intervention
6 octobre 2011
- 23 juil. 2008 à 19:16
Bonjour,
je voudrais faire une recherche sur la colonne 2 avec findfirst et findnext dans une stringgrid de 2 colonnes pour en extraire la ligne dans 2 edits.
il y a un truc simple qui m'echappe dans les parametres...
merci d'avance
morinxav
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
cs_morinxav2
Messages postés
69
Date d'inscription
mercredi 30 juin 2004
Dernière intervention
6 octobre 2011
- 23 juil. 2008 à 19:16
3
Merci
Bonjour,
j'ai trouvé.... je fais une recherche classique findfirst.... mon resultat arrive dans memo1 d'une fenetre de recherche (form5) et après j'integre le resultat dans ma fiche principale (form1):

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: integer;
begin
  with form1.StringGrid1 do begin
    for i := 0 to form1.StringGrid1.rowCount - 1 do
      if form1.StringGrid1.Cells[1, i] = (memo1.text + '.film') then begin //il y a l'extension .film avec le nom dans la cellule
        form1.Edit2.Text := form1.StringGrid1.Cells[0, i]; // N° d'index de mes films la ou je le veux
      end;
  end;
end;

morinxav

Merci cs_morinxav2 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de cs_morinxav2
cs_cantador
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Dernière intervention
27 mars 2018
- 22 juil. 2008 à 21:38
0
Merci
Bonsoir,


Je ne suis pas sûr que çà répond à ta question mais je te passe ce simple code quand même :

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  with StringGrid1 do
  begin
    for i := 0 to StringGrid1.rowCount - 1 do
      if StringGrid1.Cells[1, i] = 'Chaine cherchée' then
      begin
        Edit1.Text := 'Chaine'; // Il faut faire ici un traitement  de la cellule
        Edit2.Text := 'Cherchée';
      end;
  end;
end;

cantador
Commenter la réponse de cs_cantador

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.