Discussion :

[lila23]

bonjour à tous et à toute,

voila dans mon programme j'ai une recherche à faire j'affiche le ou les résultat dans un dbgrid je veux que quand je clik sur un enregistrement je récupére chaque colonne dans un edit

j'ai utilisé un code qui me permet de récupérer les champs mais j'ai un message d'erreur qui sort

tout d'abord le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
var i:integer;
begin
for i:=0 to dbgrid1.Columns.Count do
begin
 (Form17.FindComponent('Edit' + IntToStr(i+1)) as TEdit).Text:= dbgrid1.Fields[i].AsString;
end;

quand au message d'erreur c'est le suivant:
project monprojet2.exe raised exception class EAccess Violation with message "Access violation at adresse 0050B112 in module "monprojet2.exe" .Read of adress 00000000"

[sat83]

Est ce que tu as des composant Edit0, Edit1, Edit2, Edit3,..., EditX sur ta fiche Form17?

L'erreur que tu obtient signifie certainement que tu essai d'accéder a un objet qui n'existe pas ou qui n'est pas alloué en mémoire.

Pour récupérer les élements de ton DBGrid, utilise plutot le TDataset associé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit1.Text := MonQuery.FieldByName( 'NOM_DU_CHAMP' ).AsString ;

[lila23]

ben j'ai de edit1 juska edit6 sur ma fiche

[Just-Soft]

Salut;

pourquoi se compliquer la tâche, les DBEDit récupèrent, automatiquement, les données alors autant les utiliser à la place des EDit et annuler catégoriquement le code associé.

Recette : DBGrid + DBEDit = affichage escompté

[Paul TOTH]

"Read of adress 00000000" c'est l'usage d'un pointeur null

je te propose ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
var 
  i: Integer;
  s: string;
  e: TEdit;
begin
  Assert(Form17 <> nil, 'Form17 n''existe pas !');
  for i:=0 to dbgrid1.Columns.Count do
  begin
   s := 'Edit' + IntToStr(i+1);
   e :=  Form17.FindComponent(s) as TEdit;
   Assert(e <> nil, s + 'n''existe pas !');
   e.Text:= dbgrid1.Fields[i].AsString;
  end;
end;

[lila23]

bon ben je vais me répondre toute seule le message d'erreur que j'avais était parske je ne fesait pas correspondre l'indice correctement il fallait que je mette un deuxiéme compteur comme ceci:

Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
var i,j:integer;
begin
j:=0;
for i:=1 to 6 do
begin
(Form17.FindComponent('Edit' + IntToStr(i)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[j].Text;
j:=j+1;
end;

comme ca on peut récupérer le résultat affiché dans un dbgrid dans des edits j'espére que ca aidera quelqu'un

merci bcp a vous tous

[Linkin]

L'erreur n'était pas le for i:=0 to dbgrid1.Columns.Count do?

Il manque le -1 non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 for i:=0 to dbgrid1.Columns.Count-1 do

[lila23]

aprés qu'on m'ai fait une bonne remarque je me suis apercu qu'il n'y vait pas besoin de deux compteur un seul suffit alors le code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
var i:integer;
begin
for i:=1 to 6 do
begin
(Form17.FindComponent('Edit' + IntToStr(i)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[i-1].Text;
end;