比较16进制字符串与读文件的问题

Question

下面程序均在Delphi6编译通过，结果正确。方法一：记录文件，每记录10个字节
type TMyRec=Array[0..9] of byte;
var
  MyRec:TMyRec;
  Datafile:File of TMyRec;
begin
  AssignFile(DataFile,'d:\test01.txt');
  Reset(dataFile);
  Try
   if not Eof(DataFile) then
    read(DataFile,MyRec);
  Finally
   closeFile(dataFile);
  end;
end;方法二：记录文件，每记录1个字节，更灵活，适用范围更大
var
  MyRec:Array[0..9] of byte;
  Datafile:File of byte;
  i:integer;
begin
  AssignFile(DataFile,'d:\test01.txt');
  Reset(dataFile);
  Try
   if not Eof(DataFile) then
    for i:=low(Myrec) to high(Myrec) do
     read(DataFile,MyRec[i]);
  Finally
   closeFile(dataFile);
  end;
end;在reset之后，closeFile之前可以用
seek(DataFile,n)  //n为你想定位的字节数
来定位；seek(DataFile,Filesize(DataFile)) 可定位到文件尾16进制字符串的比较，直接比较每个字符的大小就好了，每本《数据结构》的书上都有吧。