вчера писал вопрос тут,не очень все понял...сегодня стал разбираться запутался полностью%) старая тема *
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.заранее спасибо