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
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;
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;