Удаление спецсимволов

[General]

Доброго времени суток!
Возникла проблема такого рода: в текстовом файле необходимо убрать лишние пробелы и перевод строки (Enter).
Была написана следующая подпрограма:
var
s: String;
i,k:integer;
begin
s:= Memo1.Text;
k:=length(s);
i:=1;
while i<(k-1)do
begin
if (s[i]=Chr(32)) and (s[i+1]=Chr(32)) or (s[i]=Chr(13)) then
begin
Delete(s,(i+1),1);
i:=i+1;
k:=k-1;
end
else
begin
i:=i+1;
end;
end;
Memo2.text:=s;
end;

В результате удалются не все лишние пробелы,а символ перевода строки вообще не удаляется?!
Не пойму в чем дело? Или я на столько тупой?

[mihali4]

Как только вы удаляете символ, длина строки уменьшается.
Следствие - нарушается порядок просмотра и следующий анализируемый символ - через один.
В куске
Delete(s,(i+1),1);
i:=i+1;
уберите i:=i+1;

[General]

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

В куске
Delete(s,(i+1),1);
i:=i+1;
уберите i:=i+1;

При изменении кода по Вашему совету в итоге от текста остается только первая строка и больше ничего...

Если убирать i:=i+1; то, на мой взгляд, не будет перехода к следующему символу? или я ошибаюсь?

З.Ы. При изменении Delete(s,(i+1),1); на Delete(s,i,1); результат не меняется!?

[mihali4]

Если убирать i:=i+1; то, на мой взгляд, не будет перехода к следующему символу?

Пример:
Исходная строка
АБВ%%ГДЕЖЗ (% - это пробелы)
Счетчик достигает значения 4, это - позиция пробела.
Пробел удаляется, получаем
АБВ%ГДЕЖЗ
По вашему варианту счетчик увеличивается на 1 и становится = 5, т.е. следующим будет анализироваться символ... Какой? Символ "Г", и второй пробел будет пропущен...

[Sibedir]

А вот такой вариант подойдет

procedure Zamena (var AStr: String; Bilo, Nado: String);
var
  i, lb, ln, ls: Integer;
begin
  lb := Length (Bilo);
  ln := Length (Nado);
  ls := Length (AStr);
  i := Pos (Bilo, AStr);
  while i <> 0 do begin
    AStr := Copy (AStr, 1, i-1) + Nado + Copy (AStr, i+lb, ls-i-lb);
    ls := ls + ln - lb;
    i := Pos (Bilo, AStr);
  end;
end;

...
  s := Memo1.Text;
  Zamena (s, #13, ' ');
  Zamena (s, #10, ' ');
  Zamena (s, '  ', ' ');
  Edit1.Text := s;
...

Знак переноса - это вроде #13+#10.

[Stilet]

Насчет лишних пробелов можно так:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;e,s:string;
begin
//********* FOR ******************
for i :=0  to Memo1.Lines.Count-1  do
begin
 e:=Memo1.Lines[i];
 repeat
  s:=e;
  e:=StringReplace(s,'  ',' ',[rfReplaceAll]);
 until e=s;
  e:=StringReplace(s,' ',' ',[rfReplaceAll]);
 Memo1.Lines[i]:=e;
end;
Memo1.Lines.Delimiter:=#1;
s:=Memo1.Lines.DelimitedText;
s:=StringReplace(s,Memo1.Lines.Delimiter,'',[rfReplaceAll]);
Memo2.Lines.Add(s);
//******* END FOR ****************{}
end;

т.е. загружаем в Мемо (Это именно мемо поле) файл и нажимаем на кнопку.

Здесь и переводы кареток удаляются но кривовато, надеюсь смысл ясен.

[General]

Благодарю всех за ответы.
Ваши варианты попробую и обязательно отпишусь.
А что, выходит мой вариант совсем не подходит?

[D-mon]

Попробуй ещё функцию Trim(s:string)

[Квэнди]

stringreplace (str,' ','',[rfreplaceall]);
stringreplace (str,#13#10,'',[rfreplaceall]);

[Sibedir]

А что, выходит мой вариант совсем не подходит?

потому что

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

Просто специально для таких целей программисты компании Borland и писали все те процедуры, на основе которых построены наши решения.

::: Кстати, я сам про StringReplace совсем забыл. Конечно же решение Квэнди самое правильное.
Хотя я все-таки поменял бы местами

stringreplace (str,#13#10,' ',[rfreplaceall]);
stringreplace (str,'  ',' ',[rfreplaceall]);