掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringListの使い方について (ID:15858)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コンポーネント作っています。 要するに、Property に TstringList を使いたいのですが どうすればよいのでしょうか？ ソースは大体(一部削除)以下のようになっているのですが・・・ ------ TUser = class(TCustomComboBox) private fDefaultList: TStringList; fUserList: TStringList; public procedure SetDefaultList(Value: TStringList); procedure SetUserList(Value: TStringList); property DefaultList: TStringList read FDefaultList write SetDefaultList; property UserList: TStringList read FUserList write SetUserList; ------ procedure TUser.SetDefaultList(Value: TStringList); begin FDefaultList.Assign(Value); Process; end; procedure TUser.SetUSerList(Value: TStringList); begin FUserList.Assign(Value); Process; end; procedure TUser.Process; begin Self.Items.Clear; Self.Items.Add(FDefaultList.Text); Self.Items.Add(FUserList.Text); end; ------
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.