シリアライズのやり方は？ (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; で出来る。