散尽家财,求解决问题。

Question

1.将n个硬盘序列号写入x.dat文件中。
2.从x.dat文件中将那n个硬盘序列号读出来逐一与本机的硬盘序列号对比。
硬盘序列号我已经解决。大家假设硬盘序列号帮我实现上述的两个步骤。
偶散尽家财报答。
比较急。谢谢了。

Answer 1

那得看你是怎么把序列号写进dat文件的吧！
怎么写就怎么读～～

Answer 2

var f:tstringlist;
f:=tstringlist.create;
f.append(序列号);
f.append(序列号);
f.append(序列号);
f.save(x.dat);
读取方法
f[i]

Answer 3

procedure TForm1.Button4Click(Sender: TObject);
var
  f:textfile;
  aPath :string;
  s:string;
begin
  aPath := 'c:\a.txt';
  if fileExists(aPath) then
  begin
    AssignFile(f,aPath);
    Reset(f);
    while not eof(f) do
    begin
      readln(f,s);
      showmessage(s);
    end;
    closefile(f);
  end;
end;