[T-dayne]

Имеется набранный текст в memo нужно поделить этот текст на слова и знаки, и каждое слово(знак) поместить в массив. Делаю так:

Код:

var
p,i,l: integer;
tmp: string;
arr: array[1..20] of string;
begin
 l:=0;
 for i:=0 to memo1.lines.Count-1 do
  begin
   tmp:=memo1.Lines[i];
   tmp:=stringreplace(tmp,',',' ,',[rfReplaceAll]);
   tmp:=stringreplace(tmp,'!',' !',[rfReplaceAll]);
   tmp:=stringreplace(tmp,'?',' ?',[rfReplaceAll]);
   tmp:=stringreplace(tmp,'.',' .',[rfReplaceAll]);
 while length(tmp)>0 do
  begin
   inc(l);
   p:=pos(tmp,' ');
   arr[l]:=copy(tmp,1,p);
   delete(tmp,1,p+1);
  end;
end;
end;

Выпадает ошибка при выполеннии этой процедуры. Чувствую есть более простые методы разделить текст на слова. Не подскажете?
Спасибо.

[Страдалецъ]

Что-бы не отбить интерес только намекну:

Код:

WrapText()
Memo1.Lines.Delimiter
Memo1.Lines.DelimitedText

[T-dayne]

Страдалецъ
спасибо и на этом. Никогда не сталкивался с функцией и свойствами которые ты дал, даже не знаю как применить... и статей нет на их тему. Нашел только по wraptext .

[T-dayne]

Проблема актуальна. Кто нибудь поможет?

[pesi]

ЕСЛИ ЕЩЁ НУЖНО РАЗБИТЬ СТРОКУ.rar