繼上次的問題。在提取了大量的Email 資料後。現在讀取資料成了一個問題。今天我取過1~100w的資料。明天我要取100w~200w的資料。在不用資料庫的情況下，我搞了一個下午。Delphi Tstringlist 和 textfile 的簡單讀取是滿足不了的。Tstringlist載入不了大資料。普通的textfile 讀取指定行，必須迴圈count到指定行。

想了一下午，然後想到另類點的解決方法。先對齊資料，每行規定一樣的長度。比如每行是 255位元組。那麼100w行就是 255*100w。直接用流seek到相應位置。動手過程中，發現了更加簡單的方法。是對齊資料後，配合textfile read實現的。

定義資料結構:

type
  TEmail = packed record
    Address : string[32];
    end;

var
  MyData : file of TEmail;
  Email  : TEmail;

procedure TForm1.btn2Click(Sender: TObject);
var
  txt:TextFile;
  str:string;
begin
  AssignFile(MyData,'NewSave.txt');
  Rewrite(MyData);
  AssignFile(txt,'saved.txt');
  Reset(txt);
  while not Eof(txt) do
  begin
    str := '';
    Readln(txt,str);
    Email.Address := str;
    write(MyData,Email);
  end;
  CloseFile(MyData);
  CloseFile(txt);
  ShowMessage('OK');
end;
 

{ 讀取指定行測試 }
procedure TForm1.btn1Click(Sender: TObject);
var
  txt:TextFile;
  str:string;
begin
  AssignFile(MyData,'NewSave.txt');
  Reset(MyData);
  Seek(MyData,StrToInt(Trim(edt1.Text)));
  Read(MyData,Email);
  ShowMessage(Email.Address);
  CloseFile(MyData);
end;

{ 讀取1萬行測試 }
procedure TForm1.btn3Click(Sender: TObject);
var
  txt:TextFile;
  str:string;
  i:Integer;
begin
  AssignFile(MyData,'NewSave.txt');
  AssignFile(txt,'10000email.txt');
  Rewrite(txt);
  Reset(MyData);
  Seek(MyData,StrToInt(edt2.Text));
  for I := StrToInt(edt2.Text) to StrToInt(edt3.Text) do
  begin
    Read(MyData,Email);
    Writeln(txt,Email.AddRess);
  end;
  CloseFile(txt);
  CloseFile(MyData);
  ShowMessage('OK');
end;