掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
formの値を別のformに渡す (ID:34033)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はてはてさんと同意見です。 ただ自分はまだまだ初心者ですが＾＾； ユニットを参照する時Usesは、implementationの下に書きます。 こうすると、循環参照エラーは出ません。 ファイル→ユニットを使う で、自動で追加されます。 あるいは、はてはてさんのご指摘されたように、 コード補完を利用して、実行ボタンを押して、 全自動で追加するか、になると思います。 以下は自分が試しに書いたサンプルです implementationからコピペします。 //ユニット１ implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin form2.Show; end; //ユニット２ implementation uses Unit1; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin if Form1.Edit1.Text = form2.Edit1.Text then caption := '一致しました'//(elseの前に、;をつけるとエラーになります) else //でなければ caption := '一致しませんでした'; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.