Split در دلفی 7

[narsic]

با سلام
با چه تابعی میتونیم یک متن رو Split کنیم البته بر اساس چند کاراکتر نه تنها یک کاراکتر .
مثال :
جامعه برنامه نویسان برنامه پارسی
بر اساس برنامه جدا بشه .
با تشکر

[Saeed_m_Farid]

با سلام
با چه تابعی میتونیم یک متن رو Split کنیم البته بر اساس چند کاراکتر نه تنها یک کاراکتر .
مثال :
جامعه برنامه نویسان برنامه پارسی
بر اساس برنامه جدا بشه .
با تشکر
اگه اشتباه نکنم همچین روالی نداریم، من واسه خودم از این تابع استفاده میکنم؛ امیدوارم بدرد شما هم بخوره :

function ParseStringEx(s: string; Delimiter: string): TStringList;
var
str, wrd: string;

begin
Result := TStringList.Create;

str := s;
wrd := '';

if (Length(s) = 0) then Exit;

while (Pos(Delimiter, str) > 0) do
begin
wrd := Copy(str, 1, Pos(Delimiter, str) - 1);
Result.Add(wrd);
str := Copy(str, Pos(Delimiter, str) + Length(Delimiter), Length(str));
end;

if (Length(str) > 0) then Result.Add(str);
end;