請問如何在delphi中計算以下欄位             K     Y  1            0 2      20    20  3      60    80 4      102   182    Y2=Y1+K2 Y3=Y2+K3 Y4=Y3+K4                       謝謝

var
  i: Integer;
  K, Y: array [1..10] of Integer;
begin
  K[1]:= 10;
  K[2]:= 20;
  K[3]:= 30;
  K[4]:= 40;
  Y[1]:= 1;
  Y[2]:= 2;
  Y[3]:= 3;
  Y[4]:= 4;      ShowMessage(IntToStr(Y[1] K[2]));
  ShowMessage(IntToStr(Y[2] K[3]));
  ShowMessage(IntToStr(Y[3] K[4]));
//或者      for i:=1 to Length(K) do
    ShowMessage(IntToStr(Y[i] K[i 1]));    

感謝回答 請問如果改成這樣如何在DBGrid中計算以下欄位 Y K 0 0 20 20 60 80 102 182 K2=K1 Y2 K3=K2 Y3 K4=K3 Y4 謝謝

Hi andy1119,    插一下花！

procedure TForm1.Button2Click(Sender: TObject);
var
  PrevK :Integer;
begin
  PrevK := 0;
  with DBGrid1.DataSource.DataSet do
    begin
      First;
      while not eof do
        begin
          Edit;
          FieldByName('K2').AsInteger := FieldByName('Y').AsInteger   PrevK;
          PrevK := FieldByName('K').AsInteger;
          Post;
          Next
        end;
    end
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝經小修正一下就可以了 var PrevK :Integer; begin PrevK := 0; with DBGrid1.DataSource.DataSet do begin Adoquery1.First; while not eof do begin Adoquery1.Edit; FieldByName('K').AsInteger := FieldByName('Y').AsInteger PrevK; PrevK := FieldByName('K').AsInteger; Adoquery1.Post; Adoquery1.Next end; end

再請問一下如果開始值不為0為一任意數要如何改寫 謝謝

Hi jasondsv66,

var
  PrevK :Integer;
begin
  PrevK := xxx; //前期結餘 !?
  ...
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman