Richedit и поверка на пробелы

[fakir9999]

Вот я выделяю текст, окрашиваю по определенному условию выделенное слово. Как из прошлой темы слово из 3 символов, но вдруг я выделяю слово с пробелом, тоже слово из 3 симболов, как мне зделать чтоб он не воспринимал пробел, т.е сделать на него проверку, и окрашивал ето слово с выделенным пробелом. Все осуществляется в делфи в richedit.

[Evgeniy26]

var
  Str: String;
begin
  Str := RichEdit1.SelText;
  while Pos(' ', Str) <> 0 do
   Delete(Str, Pos(' ', Str), 1);

[fakir9999]

Я вот так пишу

procedure TForm1.Button2Click(Sender: TObject);
var Str: String;
begin
Str := RichEdit1.SelText;
for i:=0 to length(str) do begin
while Pos(' ', Str) <> 0 do
Delete(Str, Pos(' ', Str), 1);
with RichEdit1 do begin
if length(SelText)=3 then begin
SelAttributes.Color:=clred;
end;
end;
end;
end;

по клику мыши выделенное слово равное 3 символам должно окрашиватяс в красный, но если я выделяю его с пробелом оно не выделяется, по совету Evgeniy26 я написал его срочки, кода но всеравно не работает, пробел читается как символ, я пытаюсь сделать чтоб он не читался, как это сделать?

[Evgeniy26]

  Str := RichEdit1.SelText;
  RichEdit1.SelAttributes.Color:=clBlue;
  if Pos(' ', Str) <> 0 then
  begin
    while Pos(' ', Str) <> 0 do
      Delete(Str, Pos(' ', Str), 1);
    if Length(Str) = 3 then
      RichEdit1.SelAttributes.Color:=clRed;
  end else
    if Length(Str) = 3 then
      RichEdit1.SelAttributes.Color:=clRed;

Так попробуйте.

[fakir9999]

Вот так он у меня с выделенным пробелом все таки окрашивает

procedure TForm1.Button2Click(Sender: TObject);
var Str: String;
begin
Str := RichEdit1.SelText;
for i:=0 to length(str) do
begin
if Pos(' ', Str) <> 0 then
begin
Delete(Str, Pos(' ', Str), 1);
if length(str)=3 then
begin
RichEdit1.SelAttributes.Color:=clre d;
end;
end;
end;
end;

Но как к примеру я выделяю несколько слов : кол кол кол , все они равны 3 символам но они не выделяются как мне сделать чтоб они выделялись?

[Evgeniy26]

Проверяйте:

function ThreeStr(Str: String): Boolean;
var
  Pos, i: Integer;
begin
  if Length(Str) < 3 then
  begin
    Result := False;
    exit;
  end;
  Result := True;
  Pos := 1;
  i := 0;
  while Pos <= Length(Str) do
  begin
    if (Str[Pos] <> ' ') and (i <> 3) then
      Inc(i)
        else
          if (i = 3) and (Str[Pos] = ' ') and (Pos <> Length(Str)) then
            i := 0
              else
                begin
                  Result := False;
                  break;
                end;
    Inc(Pos);
  end;
end;

/////////////////////////////////////////////////////////
  if ThreeStr(RichEdit1.SelText) then
    RichEdit1.SelAttributes.Color:=clRed
      else
        RichEdit1.SelAttributes.Color:=clBlue;