Подскажите, кто знает, пожалуйста, есть ли в Дельфи эквивалент VB(A)-вской ф-ии Split (делит строку в зависимости от символа-делителя, напр. "Всем привет" на основе [пробела] делит на "Всем" и "привет", ну и есс-но возвращает результаты в массив).
Заранее спасибо!

Такой вроде нет, но можно легко это организовать самому (используя функции Pos и Copy), могу написать, если у самого не получится.

Цитата

могу написать, если у самого не получится

Буду Вам очень признателен, а то я начал мухлевать с указателями и залез в непролазные глючные дебри, из которых не могу выбраться (я всего лишь новичок, так что пожалуйста не судите строго) уже вторые сутки.

В распостраненных библиотеках встречаются подобные штучки,
например функция SubStr из библиотеки RaLib

Вариант 1.

В Дельфи есть специальный класс для хранения массивов строк - TStringList - очень рекомендую. Вот как вашу строку превратить в TStringList:

Код

Объявление переменной  var t:TStringList; begin  t:=TStringList.create; //создаём класс  t.text:=stringReplace('Ваша строка для разделения',' ',#13#10,[rfReplaceAll]);//мы заменяем все пробелы на символы конца строки //теперь можно убедится что у вас строка разбина на элементы:  showmessage(t[0]);  showmessage(t[1]);  showmessage(t[2]);  showmessage(t[3]); ... //после работы надо уничтожить класс t.free;

Вариант 2. Используем стандартные массивы:

Код

var a:array of string;//наш массив      s:string;//строка которую мы будем разбивать begin  s:='Windows Messages SysUtils Variants Classes Graphics Controls Forms';  Repeat //мы постепенно заполняем массив на каждом шаге цикла по 1 элементу    setlength(a,length(a)+1);//увеличиваем размер массива на 1    if pos(' ',s)>0 then //если есть пробел то надо взять слово до пробела      begin        a[length(a)-1]:=copy(s,1, pos(' ',s));//присвоение последнему элементу массива первого слова        s:=copy(s,pos(' ',s)+1, length(s));//удаляем из строки первое слово      end    else//в строке осталось только одно слово      begin        a[length(a)-1]:=s;// присвоим последнее слово        break;//выход из цикла      end;  Until False;//цикл бесконечный, выход изнутри //теперь проверяем что получили  showmessage(a[0]);  showmessage(a[1]);  showmessage(a[2]);

После использования массива не забудте освободить память a:=nil или setlength(a,0)

Vit, первый вариант очень красив!
А вот второй имеет шероховатости. В частности, Ваш алгортим неправильно отработает, если в конце строки будет пробел - добавиться пустая строка,
если подряд идут несколько пробелов и т.д.  
Предлагаю его немного скорректировать:

var a:array of string;//наш массив
    s:string;//строка которую мы будем разбивать
begin
s:='Windows Messages SysUtils Variants Classes Graphics Controls Forms';
s:=Trim(s)+' '; // Насильственно делаем обрезание и добавляем пробел в конец
While (length(s)>1) do
  begin
 //мы постепенно заполняем массив на каждом шаге цикла по 1 элементу
    setlength(a,length(a)+1);//увеличиваем размер массива на 1    
    a[length(a)-1]:=copy(s,1, pos(' ',s)-1);//присвоение последнему элементу массива первого слова строки (без финального пробела)
    s:=TrimLeft(copy(s,pos(' ',s)+1, length(s)));//удаляем из строки слово
  end;
//теперь проверяем что получили
showmessage(a[0]);
showmessage(a[1]);
showmessage(a[2]);

Цитата(remax @ 09.1.2003, 11:09)

А вот второй имеет шероховатости. В частности, Ваш алгортим неправильно отработает, если в конце строки будет пробел - добавиться пустая строка, если подряд идут несколько пробелов и т.д.

Легко корректируется таким образом:

Первой строкой ставим:

s:=trim(StringReplace(s,'  ',' ',[rfReplaceAll]));

Это удалит и все множественные пробелы и пробелы на концах.

Кстати можно скрестить оба варианта - для разбивки использовать TStringList, а затем его перебросить в массивв...

Цитата(Vit @ 09.1.2003, 21:41)

Легко корректируется таким образом: Первой строкой ставим: s:=trim(StringReplace(s,'  ',' ',[rfReplaceAll]));

Да, совершенно верно. Но, если учитывать не только функциональность кода, но и его "красивость" - в учебных целях, то мой мой вариант лучше.
-  Во первых, он короче (комментарии я специально оставлял в оригинале - для объективности оценки)
-  Во вторых, "прозрачнее"  - нет лишних телодвижений.

Понятно, что для скорости выполнения или уменьшения исполняемого кода  для современных ПК это слезы, но для обучения хорошему стилю программирования это принципиально.


     

Вообще, по-моему, где-то в RxLib лежит подходящая функция. Но она настолько проста, что сделать нечто подобное не представляет затруднений:

procedure SplitOnWords(const s:string; Delimiters:set of char; Strings:TStrings);
var
 p,sp:PChar;
 str:string;

begin
include(Delimiters,#0); //чтоб уж наверняк
p:=pointer(s);
while true do
begin
  //пропускаем все разделители в начале
  while p^ in Delimiters do
   if p^=#0 then
     exit
   else
     inc(p);
   sp:=p;
   //пока не кончилось слово.
   while not (p^ in Delimiters) do inc(p);

   //запоминаем слово
   SetLength(str,cardinal(p)-cardinal(sp));
   Move(sp^,pointer(str)^,cardinal(p)-cardinal(sp));
   Strings.Add(str);
end;
end;

Там была так же определена константа - стандартные разделители.

P. S. Строки Delphi хоть и являются паскалевскими, но совместимы с С-строкой.

P.P.S. Сейчас вспомнил - небыло там такой функции (или просто я о ней не слышал) - была WordCount.