Var Z,I,Y,X.....:Extended; begin Z:=0; I:=0; Y:=0; X:=0 ; ........... 設定變數同值為0; 可有簡化寫法?

引言: 設定變數同值為0; 可有簡化寫法?

我覺得應該沒有吧。 如果是component可用Tag的方式給初值。 ~小弟的淺見，參考看看~

如果你所用的變數是I、X、Y、Z…之類沒有意義的變數 那麼為何不用Array 再以for 迴圈於array 宣告後給予初值 例：

procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
    var_test: array[0..20] of Extended;    begin
    for i:= low(var_test) to high(var_test) do
        var_test[i]:=0;
end;

發表人 - ddy 於 2003/02/19 17:43:18