Shulou(Shulou.com)06/02 Report--

In this issue, the editor will bring you about how Delphi sorts TStrings. The article is rich in content and analyzes and narrates it from a professional point of view. I hope you can get something after reading this article.

Mode of realization

In fact, it is very simple to use this implementation. Although there is no sort of Sort in TStrings, there is such a sort in TStringList, so we just need to create a variable of TStringList, assign the value to it, and then sort it, and then sign it with Md5.

Implementation code

Function GetSign (Params: TStrings): string

Var

TmpParams: TStringList

Str: string

I: Integer

Begin

Try

/ / create a TStringList

TmpParams: = TStringList.Create

/ / save all the data of TStrings into TStringList

TmpParams.AddStrings (Params)

/ / sort the ascii codes for TStringList

TmpParams.Sorted: = True

/ / according to the sort, we splice into the string to be implemented.

Str: =''

For I: = 0 to tmpParams.Count-1 do

Str: = str + tmpParams.Strings [I] +'&'

/ / add the final key and return it, and then add the generated string to sign the md5.

Str: = str + 'key=' + ZfPayCfg.appsecret

Result: = str

Finally

TmpParams.Free

End

End

This is how the Delphi shared by the editor sorts the TStrings. If you happen to have similar doubts, you might as well refer to the above analysis to understand. If you want to know more about it, you are welcome to follow the industry information channel.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.