Быстрая функция для разбивки строки на части (слова) в один цикл

Delphi , Синтаксис , Текст и Строки

Быстрая функция для разбивки строки на части (слова) в один цикл

Code:

type TDelim=set of Char;

TArrayOfString=Array of String;

//*******************

//

// Разбивает строку с разделителями на части

// и возвращает массив частей

//

// fcToParts

//

function fcToParts(sString:String;tdDelim:TDelim):TArrayOfString

var iCounter,iBegin:Integer;

begin//fc

if length(sString)>0 then

begin

include(tdDelim,#0);iBegin:=1; SetLength(Result,0);

For iCounter:=1 to Length(sString)+1 do

begin//for

if (sString[iCounter] in tdDelim) then

begin

SetLength(Result,Length(Result)+1);

Result[Length(Result)-1]:=Copy(sString,iBegin,iCounter-iBegin);

iBegin:=iCounter+1;

end;

end;//for

end;//if

end;//fc

Пример использования:

Code:

var

StrArr:TArrayOfString

StrArr:=fcToParts('строка1-строка2@строка3',['-','@']):

Автор ДЫМ

Взято с Vingrad.ru http://forum.vingrad.ru

Статья Быстрая функция для разбивки строки на части (слова) в один цикл раздела Синтаксис Текст и Строки может быть полезна для разработчиков на delphi & pascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Текст и Строки ::

Время компиляции файла: 2024-04-26 19:56:12
2024-04-27 08:06:26/0.0064859390258789/2