Процедура разбиения на слова

[Lichnost3d]

Всем доброй ночи, заранее извиняюсь если промахнулся с разделом.
Ну так вот в чём проблема, намедни пришлось мне вспомнить delphi после 3х лет простоя моих двух извилин в бездействии, и запнулся я вот на чём. Мне необходима процедура которая бы брала из Memo1 строки и делила бы их на слова занося их к себе в 2-х мерный массив для дальнейшего юзанья в самой программе.(в дальнейшем этот массив понадобится для вывода файла в виде xml )
Вот код процедуры

var wrd:array [0..99,0..99] of string;
          cnt:byte;
 {Процедура разбиения на слова}
    procedure DivStrToWrd(s:string);
    var k,p,b:integer;
     divs:set of char;
     w:boolean;
    begin
    divs:=[' ',',','.','!','?',':',';']; //разделители
    w:=false;
    for p:=0 to Form1.Memo1.Lines.Count-1 do //цикл перебора слов
    begin
    s:=Form1.Memo1.Lines[p]+' ';  //присваиваю s текущую строку Memo1
    for k:=1 to length(s) do  //цикл нахождения слов в строке
     begin
     if w then
      begin
      if s[k] in divs then
       begin
       inc(cnt);
       wrd[p,cnt]:=copy(s,b,k-b);
       w:=false;
       end;
      end else
      begin
      if not (s[k] in divs) then
       begin
       w:=true;
       b:=k;
       end;
      end;
     end;
     end;
    end;

Самое странное что пока массив был одномерным, всё работало. Я так подозреваю что здесь допущена ужасно глупая ошибка либо я мыслю в корне не верно.

При чем тут РНР код ?
Читаем правила раздела.
Там подробно написано, как следует оформлять код и что получается, если этого не делать.

[Stilet]

s:=Form1.Memo1.Lines[p]+' '; //присваиваю s текущую строку Memo1

Обязательно построчно вычленять?

либо я мыслю в корне не верно.

Ну я бы мыслил либо так:http://www.programmersforum.ru/showt...369#post398369
Либо так:

 {Процедура разбиения на слова}
    procedure DivStrToWrd(s:string);
     var var wrd:TStringList;
    begin
    wrd:=TStringList.Create;
    for p:=0 to Form1.Memo1.Lines.Count-1 do   begin
     with  wrd do begin
       DelimitedText:=Form1.Memo1.Lines[p]
       for k:=0 to Count-1 do     begin
         Перебираем Strings[k] - Это слова попробельно разделенные в строке Мемо
       end;
     end;
     wrd.free; 
    end;

[Johnson]

Stilet, плюсую. Пока читал пост - была та же мысль.

[Lichnost3d]

Сообщение от Stilet

Обязательно построчно вычленять?

Ну я бы мыслил либо так:http://www.programmersforum.ru/showt...369#post398369
Либо так:

 {Процедура разбиения на слова}
    procedure DivStrToWrd(s:string);
     var var wrd:TStringList;
    begin
    wrd:=TStringList.Create;
    for p:=0 to Form1.Memo1.Lines.Count-1 do   begin
     with  wrd do begin
       DelimitedText:=Form1.Memo1.Lines[p]
       for k:=0 to Count-1 do     begin
         Перебираем Strings[k] - Это слова попробельно разделенные в строке Мемо
       end;
     end;
     wrd.free; 
    end;

Спасибо Stilet Да действительно, можно было и не построчно вычленять.
я все строки присвоил одной string переменной и разбил на слова(так оказалось проще). Теперь всё работает. Вот что в итоге я сделал(на основе чужого кода)

var stroka:String;
    wrd:array [0..99] of string;
    cnt:byte;
procedure DivStrToWrd(s:string);
    var k,p,b:integer;
     divs:set of char;
     w:boolean;
    begin
    divs:=[' ',',','!','?',':',';']; {разделители}
    w:=false;
    s:=s+' ';
    for k:=1 to length(s) do {цикл нахождения слов в строке}
     begin
     if w then
      begin
      if s[k] in divs then
       begin
       inc(cnt);
       wrd[cnt]:=copy(s,b,k-b);{присвоение слова элементу массива}
       w:=false;
       end;
      end else
      begin
      if not (s[k] in divs) then
       begin
       w:=true;
       b:=k;
       end;
      end;
     end;
    end;

остался в программе один нюанс, нужно теперь сделать так чтобы если после последнего слова стоит ;#13 или ;; то присваиваем элементу массива wrd[cnt]:='_' как будто найдено слово

[Johnson]

в сторону StringReplase посмотрите...