Есть ли в Delhpi функция, подобная Splin в VB ?

← →
Сергей (2008-05-23 12:35) [0]

Есть ли в Delhpi функция подобная Splin в VB (заносит части строк разделенные разделителем в строковый массив).
Подскажите, пожалуйста, функцию поиска символов в строке по маске.

← →
Palladin © (2008-05-23 12:47) [1]

нету

← →
Игорь Шевченко © (2008-05-23 12:48) [2]

Split ?

{
Преобразование строки с разделителями в список строк.
Параметры:
Source - исходная строка.
Delimiter - строка-разделитель.
Parts - список строк, заполняемый функцией. Создается и уничтожается
вызывающей функцией.
}
procedure StrBreakApart(const Source, Delimeter: string; Parts: TStrings);
var
curPos: Integer;
curStr: string;
begin
Parts.Clear;
if Length(Source) = 0 then
Exit;
Parts.BeginUpdate;
try
CurStr:= Source;
repeat
CurPos:= AnsiPos(Delimeter, CurStr);
if CurPos > 0 then begin
Parts.Add(Copy(CurStr, 1, Pred(CurPos)));
CurStr:= Copy(CurStr, CurPos+Length(Delimeter),
Length(CurStr)-CurPos-Length(Delimeter)+1);
end else
Parts.Add(CurStr);
until CurPos=0;
finally
Parts.EndUpdate;
end;
end;

← →
Сергей (2008-05-23 12:53) [3]

Большое спасибо.

← →
han_malign © (2008-05-23 14:10) [4]

> Игорь Шевченко © (23.05.08 12:48) [2]

- а не проще TStringList.CommaText/(DelimitedText+Delimiter+QuoteChar)?

← →
Palladin © (2008-05-23 14:15) [5]

пробелы считает разделителем в независимости от Delimiter... свое писать приходится... а некоторым приходится копировать чужое... )

TRegExpr.Split

han_malign © (23.05.08 14:10) [4]

> - а не проще TStringList.CommaText/(DelimitedText+Delimiter+QuoteChar)?

Если надо разобрать строку вида "foo<br>bar<br>bazz" с разделителем "<br>", то не проще.

Есть ли в Delhpi функция, подобная Splin в VB ? Найти похожие ветки