掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
LabeledEdit内の数字を取得し他のLabeledEditに書き込むには？ (ID：4905)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。よろしくお願いします。 環境は６のパーソナル、ＯＳはＸＰです。 フォーム内にLabeledEditを３つ用意し１と２にはあらかじめテキスト ファイルから読み込んだ数字が入っております。 この２つの数字を読み取り計算した結果を３に書き込もうと思っています。 １と２は手入力する場合があるので、その度に３が変化しないといけない のでフォームのOnActivateイベントで挑戦しております。 procedure TForm2.FormActivate(Sender: TObject); var ITI:integer; NI:integer; SAN:integer; begin ITI:=strtoint(LabeledEdit1.text); NI:=strtoint(LabeledEdit2.text); SAN:=ITI * NI LabeledEdit3.Text:=inttostr(SAN); end; コンパイルはするのですが、実行するとsysutils.pasが見つかりません のメッセージが出てしまいます。どこが悪いでしょうか？ ご存知でしたらご指導ください。よろしくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.