在同一个文件中存在不同结构的数据,包括结构以及一些简单变量,怎样定义文件并读取?

解决方案 »

  1.   

    那你就使用INI文件,怎么样,能解决你的问题么
      

  2.   

    data=record//数据包
        case typea:byte of//类型判别 1.为数值;2.字符
          1:(longint;);//数值
          2:(array [1..4] of char;);//字符
        end;
    我常用类型文件,有空交流。
    [email protected]
      

  3.   

    谢谢.
    我用下列方法.
        AssignFile(F1, strFile);
        Reset(F1,1);
        BlockRead(F1, MyRecordy ,sizeof(MyRecordy));    While Not EOF(F1) do
        begin
          MyLocation := FilePos(F1);
          BlockRead(F1, bChar ,sizeof(bChar));
          If bChar = 255 then Then
          begin
            Seek(F1, MyLocation);
            BlockRead(F1, MyRecordx ,sizeof(MyRecordx),iRead)
          end
          Else
          begin
            Seek(F1, MyLocation);
            BlockRead(F1, myrecord, sizeof(myrecord),iRead);
          End;
          ...
        end;    CloseFile(F1);