delphi 讀取 .dat文件數據

經過網上查資料，得到一個讀取.dat數據的方法，這個數據是文本數據。

點擊按鈕的過程

procedure Tlogin.Button2Click(Sender: TObject);
var 
    s,tempstr:string;
    SL : TStringList;
    i,j:integer;
begin
   SL := TStringList.Create;
   SL.LoadFromFile('data.dat'); // SL就是dat中的文本內容

   for i := 0 to SL.Count - 1 do
    begin
       s :=s+'|'+ SL[i];  //循環取出所有數據給變量 s
    end;
     j:=pos('3631999563787500',s); //判斷這個字符串在 s中的位置
     memo1.Text:=inttostr(j); //顯示在memo中

 

end;