Problème Objet Concaténé

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème Objet Concaténé

blackdemons

Bonjour à tous,

Voila j'ai un problème je vous met le code :

Code :

procedure TfrmQualRap.MiseJour;
var
i, ii, nbEd : integer;
begin
i := 1;
ii := 1;
nbEd := 26;
dtmBanc.qQualRap.Close;
dtmBanc.qQual.Params[0].AsString := frmQual.edDossier.Text;
dtmBanc.qQual.Params[1].AsString := frmQual.zDateFin;
dtmBanc.qQualRap.Open;
dtmBanc.qQualRap.First;
while not dtmBanc.qQualRap.Eof do
begin
TEdit(FindComponent('edDb'+IntToStr(nbEd)+'Def'+IntToStr(ii))).Text := dtmBanc.FieldByName('qQualRapDB'+IntToStr(nbEd)+'DEF'+IntToStr(ii))).AsString;
if i = 20 then
nbEd := nbEd+1;
if i = 40 then
nbEd := nbEd+1;
if ii = 20 then
ii := 0;
i := i + 1;
ii := ii + 1;
dtmBanc.qQualRap.First;
end;
end;

Lorsque je lance le programme j'ai les erreurs suivante à la ligne 16 :

[Erreur] frm_QualRap.pas(104): Identificateur non déclaré : 'FieldByName'

[Erreur] frm_QualRap.pas(104): 'END' attendu(e) mais ')' trouvé(e)

Pouvez vous m'aider ?

Publicité

4rocky4

à 50 cm de l'écran

Normal pour les END, tu as des IF. Penses au BEGIN.

Pour l'erreur de FieldByName, elle ne se situe pas ici mais plus haut dans ton code. Il ne reconnait pas ce que c'est

---------------
- Un con qui marche ira plus loin qu'un intellectuel assis -

Koyomi

tu as une parenthèse de trop ici pour commencer :
dtmBanc.FieldByName('qQualRapDB'+IntToStr(nbEd)+'DEF'+IntToStr(ii))).AsString

FORUM HardWare.fr

Programmation

Delphi/Pascal

Problème Objet Concaténé

Sujets relatifs
Probleme TtabSheet, Focus et ActiveControl... [Resolu]	un problème avec recvfrom
un petit problème avec recvfrom	[RESOLU][Oracle - SQL] Problème parsing xml
[CSS] Problème avec une image de fond	probleme avec l'actualisation
problème de cookie	probleme de boucle
probleme de hickage	[JS] Probleme d'acces a un champ text
Plus de sujets relatifs à : Problème Objet Concaténé

Page générée en 0.072 secondes