Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=903626 Wed, 02 Nov 2005 07:46:51 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=903626
Короче все отвечают на вопрос "как удалить", а нужно "как выделить" :) :) :)
Видимо автор имел ввиду, выделить цветом. Эдакие цветные прямоугольнички.]]> Digimaster Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=903280 Tue, 01 Nov 2005 18:53:36 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=903280 Цитата Демо @
Непонятно, что имеет ввиду автор, но оптимальнее всего будет использовать алгоритм конечных автоматов для подобной задачи...

А выделить в RichEdit же можно, это я и имел ввиду. :o]]> koder Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=903010 Tue, 01 Nov 2005 13:45:40 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=903010
Этот вариант будет работать. Очень коротко, в одну строку.
В случае, если не требуется скорость, вполне приемлимое решение. ;)]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902998 Tue, 01 Nov 2005 13:37:18 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902998
    while bool(pos('  ',s)) do s:=StringReplace(s,'  ', ' ', [rfReplaceAll]);

;)]]> P.O.D Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902949 Tue, 01 Nov 2005 12:57:09 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902949 jack128 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902938 Tue, 01 Nov 2005 12:44:29 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902938 Цитата jack128 @
??

Это к чему?

Приведенный код - Result := StringReplace(Trim(s), ' ', ' ', [rfReplaceAll])) - не ведет к нужному результату ;)]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902928 Tue, 01 Nov 2005 12:33:24 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902928
    Result := StringReplace(Trim(s), '  ', ' ', [rfReplaceAll])
??]]> jack128 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902741 Tue, 01 Nov 2005 10:15:05 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902741
    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;
]]> Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902542 Tue, 01 Nov 2005 08:06:13 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902542 Демо Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902529 Tue, 01 Nov 2005 07:59:02 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902529 Цитата F1reF0x @
Удалить ещё можно функцией Trim.


Trim удаляет только спереди и сзади. Внутри строки (между слов) не удаляет.]]> Digimaster Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902514 Tue, 01 Nov 2005 07:46:48 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902514 F1reF0x Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902437 Tue, 01 Nov 2005 06:48:02 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902437 Цитата koder @
выделить в тексте лишние пробелы

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

Добавлено
если удалить, то вот тебе применительно в 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 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902382 Tue, 01 Nov 2005 05:19:54 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902382 Coala Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902366 Tue, 01 Nov 2005 04:56:25 +0000 Поиск лишних пробелов. https://forum.sources.ru/index.php?showtopic=120194&view=findpost&p=902366 koder Delphi: Общие вопросы