cs_morinxav269
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_morinxav269
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
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é ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
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;
