Delphi For

ループ回数が既知の場合、for文でループ構造を実現できます.for文には、インクリメンタルとインクリメンタルの2つのフォーマットがあります.
(1)インクリメンタルfor文フォーマットfor<ループ変数>:=<初期値>to<最終値>do<文>;
for i:=0 to 10 do(2)減算型for文フォーマットfor<ループ変数>:=<初期値>downto<終値>do<文>;ここで、「循環変数」は、秩序化されたタイプのデータです.
第1の形式では、保持字toが使用され、ループ変数は「初期値」から「最終値」に1つずつ増加する.
第2の形式では、予約ワードdowntoを使用します.[ループ変数](Loop Variable)[初期値](Initial Value)から[最終値](End Value)に逐次減算「循環体文を1回ずつ実行します.次に、上記1～1 Oの和を求めるプログラムコードを書き換え続けます.s:=O;、for i:=1 to 1 0 do//for文開始行s:--S+i:35またはs:=0 U;ループ変数の値は、ループが1回実行された後に自動的に変更されるため、ループ変数の値を変更することはできません.②ループ変数の値はループ終了後はループ変数の値を参照しないのが一般的です.
DelphiのFor In
まず、For Inを使用できるタイプを知っておきましょう.次のようにします.

for Element in ArrayExpr do Stmt;配列

for Element in StringExpr do Stmt;文字列

for Element in SetExpr do Stmt;集合

for Element in CollectionExpr do Stmt;集合

for Element in Record do Stmt;構造体

例を見てみましょう
 

  
  
  
  

   
   
   
   
1   type 
   
   
   
   
02  THuangJacky = (hjA,hjB,hjC,hjD); 
   
   
   
   
03  TJackyHuang = record 
   
   
   
   
04      a,b,c:Integer; 
   
   
   
   
05  end; 
   
   
   
   
06  const 
   
   
   
   
07      stringExpr='HuangJacky'; 
   
   
   
   
08      arrayExpr:array[0..5] of Integer= (1,2,3,4,5,6); 
   
   
   
   
09      setExpr:set of THuangJacky = [hjA,hjB,hjD]; 
   
   
   
   
10  procedure TForm1.FormCreate(Sender: TObject); 
   
   
   
   
11  var 
   
   
   
   
12      I:Integer; 
   
   
   
   
13      C:Char; 
   
   
   
   
14      D:THuangJacky; 
   
   
   
   
15      F:TComponent; 
   
   
   
   
16  begin 
   
   
   
   
17  for c in stringExpr do 
   
   
   
   
18      ShowMessage(C); 
   
   
   
   
19  for i in arrayExpr do 
   
   
   
   
20      ShowMessage(IntToStr(i)); 
   
   
   
   
21  for d in setExpr do 
   
   
   
   
22      ShowMessage(IntToStr(Ord(d))); 
   
   
   
   
23  for F in Self do 
   
   
   
   
24      ShowMessage(f.Name); 
   
   
   
   
25  end;