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

解決

y.nagata 2005-04-28 22:11:33 No: 14537

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-29 00:41:02 No: 14538