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

Code:

type TDelim=setof Char;

TArrayOfString=ArrayofString;

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

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

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

// fcToParts

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

var iCounter,iBegin:Integer;

begin//fc

if length(sString)>0then

begin

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

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

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.ruhttps://forum.vingrad

Новые статьи