Faire une recherche dans une stringgrid [Résolu]
cs_morinxav2
- Messages postés
- 69
- Date d'inscription
- mercredi 30 juin 2004
- Dernière intervention
- 6 octobre 2011
- Messages postés
- 69
- Date d'inscription
- mercredi 30 juin 2004
- Dernière intervention
- 6 octobre 2011
A voir également:
- Tcloseaction delphi
- Stringgrid delphi - Meilleures réponses
- String grid delphi - Meilleures réponses
- Formulaire de recherche - Conseils pratiques - PHP
- Base de connaissance recherchant des documents sur le réseau par le titre - Conseils pratiques - Visual Basic / VB.NET
- Recherche d'une entrée dans combobox + position - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Rechercher et sélectionner un texte dans une textbox - Codes sources - Visual Basic / VB.NET (Texte)
- Fonction de recherche de fichiers. c tout simple mais utile - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
2 réponses
Meilleure réponse
- Messages postés
- 69
- Date d'inscription
- mercredi 30 juin 2004
- Dernière intervention
- 6 octobre 2011
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
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
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
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.