[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.заранее спасибо