溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這期內(nèi)容當中小編將會給大家?guī)碛嘘PDelphi怎么對TStrings進行排序，文章內(nèi)容豐富且以專業(yè)的角度為大家分析和敘述，閱讀完這篇文章希望大家可以有所收獲。
實現(xiàn)方式
其實使用這個實現(xiàn)也非常的簡單，雖然在TStrings里面沒有Sort的排序，但是在TStringList里面有這個排序的，所以我們只要再建一個TStringList的變量，把值賦過去后再排序，然后再用Md5進行簽名即可實現(xiàn)了。
實現(xiàn)代碼
function GetSign(Params: TStrings): string;
var
tmpParams: TStringList;
str: string;
i: Integer;
begin
try
//創(chuàng)建TStringList
tmpParams := TStringList.Create;
//將TStrings的數(shù)據(jù)全部存進TStringList
tmpParams.AddStrings(Params);
//給TStringList進行ascii碼的排序
tmpParams.Sorted := True;
//根據(jù)排序我們拼接成要實現(xiàn)的字符串
str := '';
for i := 0 to tmpParams.Count - 1 do
str := str + tmpParams.Strings[i] + '&';
//加上最后的key后反回，再加這個生成的字符串進行md5的簽名即可
str := str + 'key=' + ZfPayCfg.appsecret;
Result := str;
finally
tmpParams.Free;
end;
end;
上述就是小編為大家分享的Delphi怎么對TStrings進行排序了，如果剛好有類似的疑惑，不妨參照上述分析進行理解。如果想知道更多相關知識，歡迎關注億速云行業(yè)資訊頻道。
免責聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權內(nèi)容。
