cs_morinxav2
Messages postés67Date d'inscriptionmercredi 30 juin 2004StatutMembreDernière intervention 6 octobre 2011
-
22 juil. 2008 à 20:26
cs_morinxav2
Messages postés67Date d'inscriptionmercredi 30 juin 2004StatutMembreDernière intervention 6 octobre 2011
-
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
cs_morinxav2
Messages postés67Date d'inscriptionmercredi 30 juin 2004StatutMembreDernière intervention 6 octobre 20114 23 juil. 2008 à 19:16
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;
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202114 22 juil. 2008 à 21:38
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;