[T-dayne]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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;

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

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

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

Код:

1 2 3

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

[T-dayne]

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

[T-dayne]

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

[pesi]

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