Задача со стрингом на удаление пробела

[Impario]

условие во вложениях!!!
Вообщем я незнаю как пробелы удалить???Кто может подсобите!!!

[pascal65536]

Var S : String;
    I : Integer;

Begin
     S := '   bla bla   bla ';
     While pos('  ', S)>0 Do
     Begin
          delete(S, pos('  ',S), 2);
     End;
     
     If S[1] = ' ' Then delete(S, 1, 1);
     If S[Length(S)] = ' ' Then delete(S, Length(S), 1);
     WriteLn('-=',S,'=-');
End.

[Alter]

Вариант №2(нормально реагирует на любое колличество пробелов между словами, а не только на не чётное):

procedure TForm1.Button1Click(Sender: TObject);
Var S : String;
    I : Integer;
    B :boolean;
begin
 S := Edit1.Text;
 S := Trim(S);
  For I:=Length(S) DownTo 1 Do
  begin
   If (s[i]=' ')And(S[i-1]=' ') then
   Delete(S, I-1, 1);
  end;
 Edit2.Text := S;
end;

[_Engine_]

раз уж пошла такая пьянка, вот еще вариант:

str := StringReplace(str, ' ', '', [rfReplaceAll]);

[Serge_Bliznykov]

pascal65536, отлично.
Только одна неприятная ошибка в программе - двойные (или кратные двум) пробелы внутри строки будут совсем удалены ('bla bla' - превратится в 'blabla'):

     While pos('  ', S)>0 Do
     Begin
          delete(S, pos('  ',S), 2);
     End;

а нужно так:

     While pos('  ', S)>0 Do
          delete(S, pos('  ',S), 1);

[Serge_Bliznykov]

Alter и _Engine_ - просто малюсенькое уточнение - мы не знаем, на чём требуется написать программу, но Ваши варианты будут работать только под Delphi (а под Pascal их надо переделывать!)...

[StarWorm]

А я вообще думал, что нужно сделать на Си/С++ ЛОЛ :D

[Serge_Bliznykov]

Сообщение от StarWorm

А я вообще думал, что нужно сделать на Си/С++

Абсолютно не исключено! Если это будет так - все вместе поржём! *LOL* :-D

[Alter]

Сообщение от Serge_Bliznykov

Alter и _Engine_ - просто малюсенькое уточнение - мы не знаем, на чём требуется написать программу, но Ваши варианты будут работать только под Delphi (а под Pascal их надо переделывать!)...

В теме не указано на чём надо.
У меня особо переделывать не надо, только Edit заменить на переменную и всё.

Функция Trim:

function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Trim := '' else
  begin
    while S[L] <= ' ' do Dec(L);
    Trim := Copy(S, I, L - I + 1);
  end;
end;

[StarWorm]

В теме не указано на чём надо.
У меня особо переделывать не надо, только Edit заменить на переменную и всё.

Функция Trim:

Хотел бы я посмотреть, как в Си++/Си пойдет твоя замена Edit на переменную Это просто каюк В Си и делфи разные алгоритмы работы со строками...