TQueryの計算フィールドの数値をインクリメントする方法は？

Question

私にはTQuery計算されたフィールドNがあります。例の中の数字をインクリメントする方法
（N 5で始まる）：

私はこれを試してみましたが、何も：

procedure TForm1.Query1CalcFields(DataSet: TDataSet); 
var i:integer; 
begin 
    i := strtoint(edit2.Text); 
    Query1['N'] := inttostr(i+1); 
end; 

結果：

N 
2 
2 
2 
2 
. 
. 

注：FoxProのデータベース、私は接続するためにBDEを使用する、それは計算されたフィールドである必要はありません、私は（ページ番号ではなく）各ページの単一の参照のようなクイックレポートの印刷でそれを使用するための拡張された値。

Answer 1

これは私はそれをテストする簡単な方法である：グローバル割り当てるOnCalcFieldsにおいて3-

5に FormShowオート番号

2-セットを保存するためのグローバル変数を宣言

1-新しいフィールドに変数

、4-インクリメントグローバル変数

注：TEDITまたは任意のTHIを使用しないでください計算フィールドの結果を表示するには、最初の結果が表示されます。すべての結果はテーブルまたはクエリで正しく保存されます。

コード

グローバル変数：

var 
    Form1: TForm1; 
    i : Integer; 

フォーム表示：

procedure TForm1.FormShow(Sender: TObject); 
begin 
    i := 5; 
end; 

Calcはファイルされる：

procedure TForm1.adoqry1CalcFields(DataSet: TDataSet); 
begin 
    adoqry1['n'] := i; 
    //OR adoqry1N.AsInteger := i; 
    //OR adoqry1.FieldByName('n').AsInteger := i; 

    i := i + 1; 
end; 

を終わりに、私はADOQueryでそれをテストします。

Answer 2

私はこのコードを追加、ノー計算フィールドまたはその他のVaribleするために必要なTQRLabelの印字で@kobik

の助けを借りて、この解決策を見つけた：

procedure TForm1.QRLabel1Print(sender: TObject; var Value: string); 
begin 
value:=inttostr(Query1.RecNo+strtoint(edit2.Text)-1); 
end; 

• 実行時にスタート番号を衣装にTeditします。