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;