Script, est il possible de faire une boucle ?

Bonjour,

difficile de trouver le titre adéquat, je voudrai remplacer ce code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  if <Lignes."QTE_1"> >0 then ptqt:=ptqt+<Lignes."PT_1">+':'+IntTostr(<Lignes."QTE_1">)+' ';
  if <Lignes."QTE_2"> > 0 then ptqt:=ptqt+<Lignes."PT_2">+':'+IntToStr(<Lignes."QTE_2">)+' ';
  if <Lignes."QTE_3"> > 0 then ptqt:=ptqt+<Lignes."PT_3">+':'+IntToStr(<Lignes."QTE_3">)+' ';                                                                    
  if <Lignes."QTE_4"> > 0 then ptqt:=ptqt+<Lignes."PT_4">+':'+IntToStr(<Lignes."QTE_4">)+' ';                                                                    
  if <Lignes."QTE_5"> > 0 then ptqt:=ptqt+<Lignes."PT_5">+':'+IntToStr(<Lignes."QTE_5">)+' ';                                                                    
  if <Lignes."QTE_6"> > 0 then ptqt:=ptqt+<Lignes."PT_6">+':'+IntToStr(<Lignes."QTE_6">)+' ';                                                                    
  if <Lignes."QTE_7"> > 0 then ptqt:=ptqt+<Lignes."PT_7">+':'+IntToStr(<Lignes."QTE_7">)+' ';                                                                    
  if <Lignes."QTE_8"> > 0 then ptqt:=ptqt+<Lignes."PT_8">+':'+IntToStr(<Lignes."QTE_8">)+' ';                                                                    
  if <Lignes."QTE_9"> > 0 then ptqt:=ptqt+<Lignes."PT_9">+':'+IntToStr(<Lignes."QTE_9">)+' ';                                                                    
  if <Lignes."QTE_10"> > 0 then ptqt:=ptqt+<Lignes."PT_10">+':'+IntToStr(<Lignes."QTE_10">)+' ';                                                                    
  if <Lignes."QTE_11"> > 0 then ptqt:=ptqt+<Lignes."PT_11">+':'+IntToStr(<Lignes."QTE_11">)+' ';                                                                    
  if <Lignes."QTE_12"> > 0 then ptqt:=ptqt+<Lignes."PT_12">+':'+IntToStr(<Lignes."QTE_12">)+' ';                                                                    
  if <Lignes."QTE_13"> > 0 then ptqt:=ptqt+<Lignes."PT_13">+':'+IntToStr(<Lignes."QTE_13">)+' ';                                                                    
  if <Lignes."QTE_14"> > 0 then ptqt:=ptqt+<Lignes."PT_14">+':'+IntToStr(<Lignes."QTE_14">)+' ';                                                                    
  if <Lignes."QTE_15"> > 0 then ptqt:=ptqt+<Lignes."PT_15">+':'+IntToStr(<Lignes."QTE_15">)+' ';                                                                    
  if <Lignes."QTE_16"> > 0 then ptqt:=ptqt+<Lignes."PT_16">+':'+IntToStr(<Lignes."QTE_16">)+' ';                                                                    
  if <Lignes."QTE_17"> > 0 then ptqt:=ptqt+<Lignes."PT_17">+':'+IntToStr(<Lignes."QTE_17">)+' ';                                                                    
  if <Lignes."QTE_18"> > 0 then ptqt:=ptqt+<Lignes."PT_18">+':'+IntToStr(<Lignes."QTE_18">)+' ';                                                                    
  if <Lignes."QTE_19"> > 0 then ptqt:=ptqt+<Lignes."PT_19">+':'+IntToStr(<Lignes."QTE_19">)+' ';                                                                    
  if <Lignes."QTE_20"> > 0 then ptqt:=ptqt+<Lignes."PT_20">+':'+IntToStr(<Lignes."QTE_20">)+' ';                                                                    
  if <Lignes."QTE_21"> > 0 then ptqt:=ptqt+<Lignes."PT_21">+':'+IntToStr(<Lignes."QTE_21">)+' ';                                                                    
  if <Lignes."QTE_22"> > 0 then ptqt:=ptqt+<Lignes."PT_22">+':'+IntToStr(<Lignes."QTE_22">)+' ';                                                                    
  if <Lignes."QTE_23"> > 0 then ptqt:=ptqt+<Lignes."PT_23">+':'+IntToStr(<Lignes."QTE_23">)+' ';                                                                    
  if <Lignes."QTE_24"> > 0 then ptqt:=ptqt+<Lignes."PT_24">+':'+IntToStr(<Lignes."QTE_24">)+' ';
pour le mettre dans une boucle de type for i:=1 to 24 mais je ne vois pas comment faire ?