Faire une recherche dans une stringgrid [Résolu]

cs_morinxav2 69 Messages postés mercredi 30 juin 2004Date d'inscription 6 octobre 2011 Dernière intervention - 22 juil. 2008 à 20:26 - Dernière réponse : cs_morinxav2 69 Messages postés mercredi 30 juin 2004Date d'inscription 6 octobre 2011 Dernière intervention
- 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 

2 réponses

Répondre au sujet
cs_morinxav2 69 Messages postés mercredi 30 juin 2004Date d'inscription 6 octobre 2011 Dernière intervention - 23 juil. 2008 à 19:16
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_morinxav2
cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 22 juil. 2008 à 21:38
0
Utile
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.