經過網上查資料,得到一個讀取.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;