data=record//数据包 case typea:byte of//类型判别 1.为数值;2.字符 1:(longint;);//数值 2:(array [1..4] of char;);//字符 end; 我常用类型文件,有空交流。 [email protected]
谢谢. 我用下列方法. 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);
case typea:byte of//类型判别 1.为数值;2.字符
1:(longint;);//数值
2:(array [1..4] of char;);//字符
end;
我常用类型文件,有空交流。
[email protected]
我用下列方法.
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);