他の手続きで取得した変数を定義した関数で使うには？

解決

y.nagata  2005-04-28 13:11:33  No: 14537  IP: 192.*.*.*

procedure TForm1.Button1Click(Sender: TObject);
   var i: Integer;
  begin  x1:=StrToInt(Edit1.Text);
     x1はprivateで宣言してるのですが
----------------------------------------------------------------------  function F(u:Integer):Integer;
  begin F:=2*u+x1;
  end;
----------------------------------------------------------------------
     この関数で手続きから取得したx1を使い別の手続き内で
      v:=F(u)+R;
     などを計算させることができません  func内でx1を宣言すると初期化されて
    ないとなります。どうすればいいのですか？

編集 削除
u  2005-04-28 15:41:02  No: 14538  IP: 192.*.*.*

1

編集 削除