faire une recherche dans une stringgridRésolu

Question

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

cs_morinxav2 · Accepted Answer

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

cs_cantador · Answer

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

Faire une recherche dans une stringgrid

2 réponses

Votre réponse

Discussions similaires