MyChat Scripts: function TStringList.IndexOf, searching for string index in the list by exact match
"For developers", "Server scripts", "Functions description", "Strings", "TStringList", "Methods", "IndexOf".
Find a string index by exact match. The letter case does matter.
Syntax
function TStringList.IndexOf(s: string): integer;
Parameters and return values
|
Parameter |
Type |
Value |
|
s |
string |
string for searching. |
Example
var
SL: TStringList;
i, x, iID: integer;
begin
SL := TStringList.Create;
SL.Sorted := true;
for i := 1 to 20 do
SL.Add(IntToStr(i));
mLogScript(SL.CommaText, 'Sorted by alphabet');
for i := 1 to 5 do begin
x := random(20);
iID := SL.IndexOf(IntToStr(x));
if iID <> -1 then mLogScript('position of "' + SL[iID] + '" value is ' + IntToStr(iID), '');
end;
SL.Free;
end.
Script work result
[14:55:01] (Log "IndexOfMethod"): [Sorted by alphabet] 1,10,11,12,13,14,15,16,17,18,19,2,20,3,4,5,6,7,8,9
[14:55:01] (Log "IndexOfMethod"): position of "10" value is 1
[14:55:01] (Log "IndexOfMethod"): position of "3" value is 13
[14:55:01] (Log "IndexOfMethod"): position of "15" value is 6
[14:55:01] (Log "IndexOfMethod"): position of "3" value is 13
[14:55:01] (Log "IndexOfMethod"): position of "12" value is 3
[14:55:01] (Run "IndexOfMethod"): Script operation time: 5 ms
[14:55:01] (Run "IndexOfMethod"): Script done successfully.