掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WriteComponentでTPoint型プロパティを保存するには？ (ID:20852)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
他のスレッドで指導していただき、 □インデックス指定子をこのように使っても問題ないでしょうか？ https://www.petitmonte.com/bbs/answers?question_id=3827 次のように実装できました。 ----- TMyClass = class private FStartX, FStartY: Integer; //始点 procedure SetStartPoint(Index, Value: Integer); //始点設定 published property StartX: Integer index 0 read FStartX write SetStartPoint; property StartY: Integer index 1 read FStartY write SetStartPoint; procedure TLine.SetStartPoint(Index, Value: Integer); begin Case Index of 0: FStartX := Value; 1: FStartY := Value; end; end; ----- クラス型でも取り掛かってみたんですが、生成と破棄はどうするのか？と新たな疑問も出てきてしまい、時間の余裕もなく保存実験済みのIntegerで実装しました。 おかげさまで「保存できないが、Integerで保存すればＯＫ」という形で決着できました。ありがとうございます。 保存・復元については、もとのコードをそのまま利用できました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.