クラス配列や、配列を含むクラスなどをまとめたTComponent型のクラスをファイル保存、読出しする方法 (ID:149343)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

type
   TArrayString = array[2..4] of String;
   TArrayInteger = array[2..4] of Integer;

public
    property ArrayString: TArrayString read FArrayString write FArrayString;
    property ArrayInteger: TArrayInteger read FArrayInteger write FArrayInteger;

の保存なら

procedure SaveArray(AOBJECT: TOBJECT);
var
    I: Integer;
    FProp   : TRttiProperty;
    FContext: TRttiContext;
    FType   : TRttiType ;
    VALUE1  : TValue ;
    VALUE2  : TValue ;
begin
    FContext := TRttiContext.Create;
    FType    := FContext.GetType ( AObject.ClassType );
    for FProp in FType.GetProperties do
    begin
      case FProp.PropertyType.TypeKind of
        tkArray:
        begin
          VALUE1 := FProp.GetValue(AOBject);
          Form1.Memo1.Lines.Add(FProp.Name);            /// PropertyName
          for I:=0 to VALUE1.GetArrayLength -1 do
          begin
            VALUE2 := VALUE1.GetArrayElement(I);
            Form1.Memo1.Lines.Add(VALUE2.ToString);     /// 値
          end;
        end;
      end;
    end;

end;

public
    property XXX[Index: Integer]: String read GetXXX write SetXXX; 
これは 無理 ぽい

←解決時は質問者本人がここをチェックしてください。

戻る