formの値を別のformに渡す (ID:34034)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

書き込みすれ違いでしたね＾＾；
数値で比較されるんですね？
deldel３号かも知れないさんのと、同じ変数名で書いてみました。

//ユニット１
var
  Form1: TForm1;
  abcd:string;
  efgh:integer;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try//もし以下のコードにエラーがあれば （edit1が数値でなければ）
    abcd := edit1.Text;//edit1の中身を変数abcdに代入
    efgh := strtoint(abcd);//abcdの中身をInteger変数efghに代入
    //efgh := strtoint(edit1.text);//でも大丈夫ですよ^^
    form2.Show;
  except//もしエラーなら
    caption := '数値を入力してください';
  end;
end;

//ユニット２
var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.btnClick(Sender: TObject);
var
  ijkl:string;
  mnop:integer;
  //↑で宣言した変数はブロック（begin  end;間）内でしか使えません
begin
  try//もし以下にエラーがあれば（edit1が数値でなければ）
    ijkl := form2.Edit1.Text;//判りやすくする為にform2をつけてみましたそのままedit1.textでも大丈夫です。
    mnop := strtoint(ijkl);
    //mnop := strtoint(form2.edit1.text);//でも大丈夫ですよ
    if efgh = mnop then
    begin
      //一致した場合ここが実行されます
      caption := '一致しました';
    end else begin
      //一致しなかった場合ここが実行されます
      caption := '一致しませんでした';
    end;
  except//もしエラーなら
    caption := '数値を入力してください';
  end;
end;

になります。
どうでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る