Вырезание слов

[KoBRaAndrey]

probel2:=0;
probelold:=0;

while posex(' ',memo1.Text,probel2+1)<>0 do begin
probel2:=posex(' ',memo1.Text,probel2+1);
slovo:=copy(memo1.Text,probelold,probel2-1);
showmessage(slovo);
probelold:=posex(' ',memo1.Text,probel2+1);
end;

нужно чтобы вырезало каждое слово от пробела до пробела
например текст:
аааа б ц д
и должно показать 4 раза месангебокс и в 1 аааа во 2 б в 3 ц...
но почемуто в моем коде показывает :
аааа й д,букву б пропускает.. в чем дело

[raxp]

1 2
showmessage уже добавите цикл перебора t[] примеров сами.

[Dzmitry Loktseu]

Можно сделать проще:

procedure TForm4.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TStringList.Create do
    try
      DelimitedText := 'аааа б ц д';
      for I := 0 to Count - 1 do
        ShowMessage(Strings[I]);
  finally
    Free;
  end;
end;

[KoBRaAndrey]

мне интересно а какая проблема в моем коде))

[mihali4]

Такая:

probel2:=0;
probelold:=1;
while PosEx(' ',memo1.Text+' ',probel2+1)<>0 do begin
probel2:=posex(' ',memo1.Text+' ',probel2+1);
slovo:=copy(memo1.Text+' ',probelold,probel2-probelold);//последний параметр - длина!
showmessage(slovo);
probelold:=probel2+1;
end;

[postal2]

Лично моя функция для вырезания части из строки - вырезает от одной строки до другой (с) :

function TForm1.ccopy(s, c1, c2: widestring): string;
begin
  if c1 <> '' then
    system.delete(s, 1, ansipos(c1, s) + length(c1) - 1);
  if c2 <> '' then
    system.delete(s, ansipos(c2, s), length(s));
  result := s;
end;

Примеры использования:
ccopy('1234567890','2','6') вернёт 345
ccopy('1234567890','','6') вернёт 12345
ccopy('1234567890','123','6') вернёт 45
ccopy('1234567890','111','6') вернёт 12345