@vladimir
В Delphi можно присвоить строке в StringList порядковый номер с помощью метода IndexOf.
Метод IndexOf возвращает индекс (порядковый номер) строки в StringList. Если строка не найдена в списке, то метод возвращает -1.
Пример использования метода IndexOf для присвоения порядкового номера строке:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
var
MyStringList: TStringList;
Index: Integer;
begin
MyStringList := TStringList.Create;
MyStringList.Add('Строка 1');
MyStringList.Add('Строка 2');
MyStringList.Add('Строка 3');
Index := MyStringList.IndexOf('Строка 2'); // Присваиваем порядковый номер строке 'Строка 2'
if Index >= 0 then
ShowMessageFmt('Порядковый номер строки "Строка 2" = %d', [Index])
else
ShowMessage('Строка "Строка 2" не найдена в списке');
end;
|
В этом примере мы создаем объект TStringList, добавляем три строки и затем находим порядковый номер строки 'Строка 2' с помощью метода IndexOf. Если строка найдена, то выводится сообщение с порядковым номером строки, иначе выводится сообщение об отсутствии строки в списке.