我想要实现循环。

Question

 var i:integer;
   WaterQuality:string;
   BoxAndWetSoilQuality:string;
   BoxAndTrySoilQuality:string;
  begin
 for i:=1 to 2 do
   begin
   aqryGetTestDataS.FieldByName('WaterQuality+'i')').AsFloat:=
  aqryGetTestDataS.FieldByName('BoxAndWetSoilQuality+'i'').AsFloat-
  aqryGetTestDataS.FieldByName('BoxAndTrySoilQuality+'i'').AsFloat  ;

Answer 1

aqryGetTestDataS.FieldByName('WaterQuality'+inttostr(i)).AsFloat:= 
  aqryGetTestDataS.FieldByName('BoxAndWetSoilQuality'+inttostr(i)).AsFloat- 
  aqryGetTestDataS.FieldByName('BoxAndTrySoilQuality'+inttostr(i)).AsFloat  ;