Faire une recherche dans une stringgrid [Résolu]

Signaler
Messages postés
67
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
6 octobre 2011
-
Messages postés
67
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
6 octobre 2011
-
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

2 réponses

Messages postés
67
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
6 octobre 2011
4
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
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
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