DELPHI boucle avec des TField
DELPHI boucle avec des TField - Programmation
Marsh Posté le 09-10-2001 à 14:00:46
For i := 0 to Data.Fields.Count - 1 do
if edtVide(Data.Fields[i]) then
ShowMessage(Data.Fields[i].FieldName + ' est vide'
Ca devrait le faire (Data, c'est bien ton TQuery ?)
Marsh Posté le 09-10-2001 à 14:58:57
data c mon datamodule et TOperation la table
---------------
ma vie, ma carrière! - Un trait d’union entre des photos et des mots.
Marsh Posté le 09-10-2001 à 15:02:48
ok ça marche, mais en fait ils sont pas tous obligatoires!
Mais c po grave jvais me debrouiller
Merci
---------------
ma vie, ma carrière! - Un trait d’union entre des photos et des mots.
Marsh Posté le 09-10-2001 à 15:29:39
Je t'en prie !
En testant la propriété required (Data.TOperation.Fields(i).Required), ça devrait rouler.
Sujets relatifs:
- [Delphi] créer une arborescence de fichier...
- [Delphi] Créer un petit chat
- [DELPHI] Champ agregat HELP!!!
- [DELPHI] composant DelphiZip beta 1.6
- DELPHI jointure
- [DELPHI] copie de fichiers et répertoires
- DELPHI try except?
- Delphi Arrondi
- Delphi boucle while et test
Marsh Posté le 09-10-2001 à 13:46:05
J'appele ma fonction estVide comme ça
;
IF estVide(Data.TOperationOpeOuvNo) THEN ShowMessage(Data.TOperationOpeOuvNo.FieldName+' Est Vide'
Mais j'aimerais l'appliquer sur tt les champs de ma table
comment mettre ça sous la forme d'une boucle pour parcourir tt les colonnes de la table??
---------------
ma vie, ma carrière! - Un trait d’union entre des photos et des mots.