[Mp3]

вчера писал вопрос тут,не очень все понял...сегодня стал разбираться запутался полностью%) старая тема * http://www.delphisources.ru/forum/sh...d.php?t=20391*
в общем хочу составить программу, чтобы если в тексте ЕСТЬ 2 ИЛИ БОЛЕЕ ПРОБЕЛА то программа проверяла и заменяла все пробелы 2 и далее на единичные проблемы в делфи

Код:

procedure TForm3.Button1Click(Sender: TObject);
Var
B:ansistring;
begin
B:=(memo1.text);
B:=StringReplace('Value_With_Double_Space', '#32#32', '#32',[rfReplaceAll]);
memo1.Text:=(B);
end;

Админ: Пользуемся тегами!

вот что у меня получается,эта прога не правильна(
исправьте или напишите новую пожалуйста.
p.s.заранее спасибо

[Aristarh Dark]

Ужос...

Код:

Var
  B,old:ansistring;
begin
  B:=(memo1.text);
  repeat
    old:=B;
    B:=StringReplace(B, #32#32, #32,[rfReplaceAll]);
  until B=old;
  memo1.text:=B;
end;

где-то так...

[Snake22]

Код:

b:=memo1.Text;
While Pos(#32#32,B)>0 do
B:=StringReplace(B,#32#32,#32,[rfReplaceAll]);
memo1.Text:=(B);

а вообще твой код был верный,но ошибка в нем в том,что #32 блыа в ковычках,надо без ковычек

[Snake22]

удалено.дубль

[Mp3]

*Ужос...
Код:

Var B,old:ansistring; begin B:=(memo1.text); repeat old:=B; B:=StringReplace(B, #32#32, #32,[rfReplaceAll]); until B=old; memo1.text:=B; end;

где-то так...*

вот это не работает...но программа уже запускается)xd

[Aristarh Dark]

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

*Ужос...
Код:

Var B,old:ansistring; begin B:=(memo1.text); repeat old:=B; B:=StringReplace(B, #32#32, #32,[rfReplaceAll]); until B=old; memo1.text:=B; end;

где-то так...*

вот это не работает...но программа уже запускается)xd

Для очистки совести скописастил свой код и проверил - работает.

[Mp3]

странно,значит где то мой косяк,все равно спасибо=)
тема закрыта.