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

解決

こなこな 2007-03-14 18:02:40 No: 25312

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

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

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

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

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

deldel 2007-03-14 18:26:12 No: 25313

こんな感じかなぁ？

{ 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 21:03:43 No: 25314

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

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

参考程度にどうぞ。

こなこな 2007-03-16 08:18:22 No: 25315

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

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

またお願いします。