数组值没有变化[重复]答案

【问题标题】：No change in array value [duplicate]数组值没有变化[重复]
【发布时间】：2014-06-10 09:32:12
【问题描述】：

我试图检查四个数组的初始元素，但系统抛出了一个默认值，即 0.000。看起来循环正在运行，但所有元素的值仍然没有改变。请看一看！

var
  Form1: TForm1;
  n_max : integer;
  n: integer;
  r, R1, f, h0 : Array of Real;

const
  h = 0.00889; nip= 100;
  cod = 10;
  rod = 76;
  nip_dia = 5; viscosity = 0.001; velocity = 76;


implementation

{$R *.dfm}


    procedure TForm1.Button1Click(Sender: TObject);
    begin

       n_max := Round(((rod-cod)/2)/h);
       Setlength(r, n_max);
       Setlength(f, n_max);
       Setlength(h0, n_max);
       Setlength(R1, n_max);

       for n := 0 to n_max-1 do;

        r[n]:= cod/2 + h*n;
        R1[n] := (r[n]*(nip_dia)/2)/(r[n]+(nip_dia)/2);
        f[n] := nip*((r[n]-r[0])/r[n]);
        h0[n] :=4*viscosity*velocity*(1/(60*(R1[n]/f[n])));


       Edit1.Text := FormatFloat('#.00', r[1]);
       Edit2.Text := FormatFloat('#.00', f[1]);
       Edit3.Text := FormatFloat('#.00', h0[1]);
       Edit4.Text := FormatFloat('#.00', R1[1]);


    end;

    end.

【问题讨论】：

你的 for 循环体中没有任何内容。
循环在do;处停止。它应该开始一个开始结束块。
我尝试了开始结束，但仍然抛出相同的 .00 值
你确定你没有放错 ;当你尝试开始结束？
你在上一个问题中犯了同样的错误。这是向你解释的。请重新阅读上一个问题的答案。

标签： delphi delphi-xe

【解决方案1】：

您的循环没有运行。它由do; 终止。您需要将循环计算用开始/结束块括起来。

应该是：

for n := 0 to n_max-1 do
begin
  r[n]:= cod/2 + h*n;
  R1[n] := (r[n]*(nip_dia)/2)/(r[n]+(nip_dia)/2);
  f[n] := nip*((r[n]-r[0])/r[n]);
  h0[n] :=4*viscosity*velocity*(1/(60*(R1[n]/f[n])));
end;

请参阅文档For Statements。

【讨论】：