Edit内の文字を、いったん格納する方法

解決

こなこな 2007-03-14 09:02:40 No: 25312 IP: 192.*.*.*

初めましてです。Delphiで分からないことがあり、記入させていただきました。

「Edit1」と「Edit2」と「ボタン」がフォーム上にある状態で、
①「Edit1」に書かれた文字をボタンを押すことで、いったん変数
  などに格納して、その後「Edit1」に書かれた文字をクリアする。

②再度、「Edit1」に別の文字を書き、同じ「ボタン」を押すことで
  1回目に記入した文字と、2回目に記入した文字を、合わせて
  「Edit2」に表示させる。

例）
  1回目「Ａ」  +  2回目「B」   ⇒  Ｅｄｉｔ2に「AB」と表示

という方法を探しています。TStringListなどを使ってみたのですが
方法が分からず...です。
良い方法があれば、ぜひお願いします。

編集削除

deldel 2007-03-14 09:26:12 No: 25313 IP: 192.*.*.*

こんな感じかなぁ？

    { 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;

編集削除

まちだ 2007-03-15 12:03:43 No: 25314 IP: 192.*.*.*

プログラム的に美しくないかもしれませんが…(笑)

Visibleをfalseにしたlabelを追加して、グローバル変数代わりにしたことがあります。
Visibleをtrueにしておけばデバッグも簡単です。

参考程度にどうぞ。

編集削除

こなこな 2007-03-15 23:18:22 No: 25315 IP: 192.*.*.*

deldelさんまちだありがとうございます。
無事解決しました。

とても参考になり、なかなか面白い物
が出来そうです。

またお願いします。

編集削除