Discussion :

[titiyo]

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

[rbag]

salut,


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

[titiyo]

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

[rbag]

Bon en supposant que tu utilise un TQuery:

Code :

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

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...

[Jean44]

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.

[titiyo]

ok merci sa marche