[code] pout tout

j'utilisait avant windev ou progress ( us) ; ma question existe t'il en delphi l'equivalent de pout tout (windev) ou for each (progress)
exemple
pour tout clients ou code = 1
alors
solde = solde + solde client
fin
merci d'avance

salut,


pas à ma connaissance, tu vas devoir te débrouiller avec un for

comment un for , tu crois que je peut lire les enregistrement d'une table ????? tu a un exemple ????? merci d'avance, car l'aide de delphi est un peut leger dessu

Bon en supposant que tu utilise un TQuery:

Code:

---

1 2 3 4 5 6 7

while not MaRequete.Eof do begin if MaRequete.FieldByName('CODE_CLIENT').AsInteger = 1 then Solde := Solde + MaRequete.FieldByName('SOLDE_CLIENT').AsFloat;   MaRequete.Next; end;

---

Par contre tu peux directement faire une requete, ça sera sûrement plus simple...

En Turbo Pascal (Objet) il existait une classe TCollection (liste d'objets de même classe) qui offrait la méthode ForEach( pour chaque élément) à laquelle on donnait l'adresse d'une procedure (perso ou autre) qui devait faire un traitement sur l'élément passé en argument. Il y a moyen en Delphi de dériver un nouvel objet de TList, et de lui ajouter ce comportement ForEach. Peut-être y-a-t'il encore plus simple.

ok merci sa marche :lol: :lol: :lol: :lol: