type
  TVisFile = Record
  FileName: string[20];
  FilePath: string[50];
  EntModel: string[10];
  Interval: Integer;
  ExtModle: string[10];
  FileData: string[256];
end;我用记录文件建立不了,应string不能超过255;
最好FileData能是一个TStringList,这样就容易定制字符串的长度,因为我有很多个256长度字符串要保存?