Делфи. Удалить все лова после 5-го

[serhan]

Как удалить все слова с рядка после пьятого? Помогите...Оч срочно!

[DiemonStar]

Находишь 5й пробел с следующей за ним буквой и удаляешь всё остальное (с этим пробелом за компанию).

[serhan]

А можешь кодом прописать пожалуйста? Просто очень срочно нужно сделать...

[DiemonStar]

Что-то такое:

S := Stroka; J := 0; S1 := "";
I  := pos(" ", S);
while I > 0 do
  begin
    if S[I+1] in ["A".."Z", "a".."z", "А".."Я", "а".."я"] then
      J = J + 1;
    if J = 5 then
        I = 0
     else
      begin
         S1 := S1 + Copy(S, 1 , I);
         Delete(S, 1, I);
         I = Pos(" ", S);
      end;     
  end;{while}
Stroka := S1;

немного поправил...