百度輸入提示 Delphi 實現

2021-09-28 19:38:58 字數 1801 閱讀 9082

定義 datalst: tstringlist; 

用於存放供選擇的資料。

edt1:tedit;

用於接收使用者錄入

lbserach: tlistbox;

用於顯示提示列表

procedure filldata(datalst: tstringlist );

begin

end;

// 在選擇列表中的按鍵處理

procedure tform1.lbserachkeydown(sender: tobject; var key: word;

shift: tshiftstate);

vari: integer;

begin

if key = 13 then // 回車鍵

begin

for i := 0 to lbserach.items.count - 1 do // 查詢使用者選取的資料項

begin

if lbserach.selected[i] then

begin

edt1.text := lbserach.items[i];

lbserach.visible := false;

edt1.setfocus;

exit;

end;

end;

end else

if key = vk_up then  // 回到編輯框

begin

if lbserach.itemindex = 0 then

begin

lbserach.itemindex := -1;         // 不起作用

lbserach.selected[0] := false;    // 不起作用

edt1.setfocus;

end;

end;

end;

// 編輯框內容變化處理

procedure tform1.edt1change(sender: tobject);

vari: integer;

str: string;

begin

str := tedit(sender).text;

lbserach.items.beginupdate;

lbserach.clear; // 清除以前的內容

for i := 0 to datalst.count - 1 do  // 從可用資料中選出 匹配項 最多 15個

begin

if pos(str, datalst[i]) > 0 then 

begin

lbserach.items.add(datalst[i]);

if lbserach.items.count > 15 then

break;

end;

end;

lbserach.items.endupdate;

lbserach.visible := lbserach.items.count>0;

end;

// 編輯框按鍵處理

procedure tform1.edt1keydown(sender: tobject; var key: word;

shift: tshiftstate);

begin

if lbserach.visible then

begin

if key = vk_down then

lbserach.setfocus;

lbserach.selected[0] := true;

end;

end;

尋找百度翻譯引數,實現百度翻譯

author runsen 首先要分析瀏覽器是怎麼傳送請求的。構造請求 找到關鍵請求之後,就要分析請求,然後去構造請求。分析請求有一下幾個要素,url,請求方法,請求頭,請求引數。請求引數有七個,可以通過反覆請求然後比較的方法得出from,to是表示翻譯語言的,transtype,means fla...

Vue專案接入百度語音提示

這裡介紹兩種方式 第一種 var text encodeuri 時間滴答滴答就消逝了!new audio http play 第二種 ps 第二種參考網上大神的記錄 建立form引數 var data for var p in param 賦值預定義引數 data.cuid data.cuid da...

百度輸入法評價

2 記住使用者選擇這個方面。這個輸入法。可以非常好的準確的記住我的經常輸入的東西。就好比我的名字。經過幾次的輸入之後。當我只輸入的姓的時候。在旁邊就會自動彈出來我的全名。這樣很方便啊。3 短期刺激 這個輸入法當你輸入幾個字的時候。有乙個按鈕當你點選的會後會生成相關內內容得表情包。各式各樣的供你選擇。...