Пример в этой статье описывает использование функции разделения строк Delphi. Поделитесь этим со всеми для справки. Конкретный метод реализации заключается в следующем:
В этом примере можно разделить строку s на несколько строк в соответствии с представлением разделителя строк и сохранить их в списке строк rs. Конкретный код выглядит следующим образом:
Скопируйте код следующим образом: процедура SeparateTerms2(s:string;Separator:string;var rs:TStringList);
вар
АСтр: строка;
идентификатор: целое число;
ASubStr: строка;
начинать
AStr := Обрезать(я);
в то время как Pos(Separator, AStr) > 0 делать
начинать
idx := Pos(Разделитель, AStr);
ASubStr := Копировать(AStr, 1, idx - 1);
rs.Add(ASubStr);
AStr := Копировать(AST, idx + 1, Длина(AStr));
конец;
if AStr+'a' <> 'a' then rs.Add(AStr); //Если остались строки, сохраним их в списке строк.
конец;
Я надеюсь, что эта статья будет полезна каждому программисту на Delphi.