Поиск лишних пробелов.

Как найти и выделить в тексте лишние пробелы?

Что считать лишними пробелами и что значит - выделить их ?

Цитата koder @ 01.11.05, 04:56

выделить в тексте лишние пробелы

может удалить?

Добавлено 01.11.05, 07:00
если удалить, то вот тебе применительно в TMemo

// no comments :) тут и так все ясно.
procedure TForm1.Button2Click(Sender: TObject);
var x,count:integer;
    s:string;
begin
s:=memo1.Lines.Text;
while true do begin
if pos('  ',s)<=0 then begin
                        break;
                        exit;
                       end;
count:=1;
x:=pos('  ',s)+1;
while s[x+count]=' ' do inc(count);
delete(s,x,count);
end;
memo1.Lines.Text:=s;
end;

Сообщение отредактировано: tIce - 01.11.05, 07:02

Удалить ещё можно функцией Trim.

Цитата F1reF0x @ 01.11.05, 07:46

Удалить ещё можно функцией Trim.

Trim удаляет только спереди и сзади. Внутри строки (между слов) не удаляет.

Непонятно, что имеет ввиду автор, но оптимальнее всего будет использовать алгоритм конечных автоматов для подобной задачи...

Вот простая функция для удаления лишних пробелов(из нескольких рядом стоящих остается толтько один).

function DropSpace(const Src: String): String;
type
  TState=(stNone,stSpace);
var
  CurrPos: Integer;
  DestPos: Integer;
  State: TState;
  Len: Integer;
begin
  Len := Length(Src);
  SetLength(Result,Len);
  if Len=0 then Exit;
  State := stNone;
  CurrPos := 1;
  DestPos := 1;
  while CurrPos<=Len do
  begin
    case State of
      stNone:
        begin
          Result[DestPos] := Src[CurrPos];
          if Src[CurrPos]=' ' then State := stSpace;
          Inc(DestPos);
          Inc(CurrPos);
        end;
      stSpace:
        begin
          if Src[CurrPos]<>' ' then
          begin
            State := stNone;
            Continue;
          end;
          Inc(CurrPos);
        end;
    end;
  end;
  SetLength(Result,DestPos-1);
end;

Гм.

Result := StringReplace(Trim(s), '  ', ' ', [rfReplaceAll])

??

Цитата jack128 @ 01.11.05, 12:33

??

Это к чему?

Приведенный код - Result := StringReplace(Trim(s), ' ', ' ', [rfReplaceAll])) - не ведет к нужному результату

Хм. Да, действительно, прошу прощения.

А так:

while bool(pos('  ',s)) do s:=StringReplace(s,'  ', ' ', [rfReplaceAll]);

>P.O.D

Этот вариант будет работать. Очень коротко, в одну строку.
В случае, если не требуется скорость, вполне приемлимое решение.

Цитата Демо @ 01.11.05, 08:06

Непонятно, что имеет ввиду автор, но оптимальнее всего будет использовать алгоритм конечных автоматов для подобной задачи...

А выделить в RichEdit же можно, это я и имел ввиду.

Короче все отвечают на вопрос "как удалить", а нужно "как выделить"
Видимо автор имел ввиду, выделить цветом. Эдакие цветные прямоугольнички.