Record型のフィールド数を求めるには？ (ID：42119)

名前

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

本文

>もし、Record型の変数をファイルに入出力するよい方法があれば、
バージョン管理は他のファイルを利用するとした場合。
下記はあくまでテストです、file of 型が肝です。
FileA:file of TA_AData;の所をFileA:file of TAData;としても
もちろんOKです、型の単位で読み書きします,
私にとって簡単なのはこれです。
通常はFileStreamを使ってバージョンも含めて１つのファイルにします。

implementation

{$R *.dfm}

type
   TAData = record
     x, y, z: Integer;
   end;
   TBData = record
     w, x, y, z: Integer;
   end;
   TCData = record
     x, y, z: Integer;
     st:string[80];
   end;
   TA_AData=array[1..10] of TAData;
   TA_BData=array[1..10] of TBData;
   TA_CData=array[1..10] of TCData;
var
  AData:TA_CData;
  BData:TA_CData;
  CData:TA_CData;
  FileA:file of TA_AData;
  FileB:file of TA_BData;
  FileC:file of TA_CData;
  VarNo:integer;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
  VarNo:=3;
  for i := 1 to 10 do
    begin
      CData[i].x:=i;
      CData[i].y:=i;
      CData[i].z:=i;
      CData[i].st:=IntToStr(i);
    end;
  AssignFile(FileC, 'C:\TestGoGo');
  Rewrite( FileC );
  write(FileC,CData);
  CloseFile(FileC);
end;

end.

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

戻る