掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringListの使い方について(続き) (ID：15874)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
前回、解決済みにしたので、引き続き 新規で質問します。 クリエイト部で FUserList.OnChange := DataListChange; とし、処理部分で以下のようにしました。 procedure TUser.DataListChange(Sender: TObject); begin Items.Text := FDefaultList.Text + FUserList.Text; end; 呼び出し側では User1.DefaultList.Add('AAA'); User1.DefaultList.Add('BBB'); で追加していくようになったのですが 同じ文字列で再度 User1.DefaultList.Add('AAA'); と、しても DefaultListのデータの中身 （この場合期待としては'AAA','BBB','AAA'が入ってるはず） が'AAA','BBB'のままですがどうしてなんでしょうか？ どうやらOnChangeが動作しないようです。 もちろん次に新しい項目 User1.DefaultList.Add('CCC'); を入力すると'AAA','BBB','CCC'に変更されます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.