掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Edit内の文字を、いったん格納する方法 (ID:25313)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じかなぁ？ { Private 宣言 } g_S: string; procedure TForm1.Button1Click(Sender: TObject); const boFirstTime: Boolean = False; begin boFirstTime := not boFirstTime; if boFirstTime then begin g_S := Edit1.Text; Edit1.Text := ''; end else begin Edit2.Text := g_S + Edit1.Text; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.