掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
シリアライズのやり方は？ (ID:33048)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Integer,String型のプロパティ値取得なら uses TypInfo var I,J,Count: Integer; S: String; begin Count := GetPropList(Self,PropList); I := 0; while I < Count do begin // PropList^[I].Name //プロパティ名 // PropList^[I].PropType^.Kind //プロパティの型 case PropList^[I].PropType^.Kind pf ktInteger: //Integer型 begin J := GetOrdProp(Self,PropList^[I].Name) end; ktLString: //String型 begin S := GetStrProp(Self,PropList^[I].Name); end; end; end; で出来る。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.