Как заменить в строке все пробелы на нули ?

[Gameus_]

Собственно сабж

replace(number,chr(32),'0') и replace(number,' ','0')
не получается

number - строка типа ' 1'

[m0p3e]

Все прекрасно получается.
replace('жили у бабуси два веселых гуся',' ', '0')
'жили0у0бабуси0два0веселых0гуся'

Что такое строка типа ' 1'?

[Gameus_]

куча пробелов и 1 в конце
спасает тока

Код: Выделить всё

for (p:=0;p<length(number);p:=p+1) if (number[p]=' ') number[p]:='0';

но что-то мне не нравится такая конструкция

[m0p3e]

Может я конечно что то неправильно делаю но у меня работает.
number имя для переменной не совсем хорошее...

var str1: string;
str1 := ' 1'
Message ( replace(str1,' ','0');

Пробуй

[Gameus_]

у меня вот так:

str1 - строка вида '000001'

int1:=integer(str1); переводим её в int

далее по int1 идет цикл, в цикле делается:

str2:=string(nmb,6); в str2 должны получить строку похожую на Str1 но с другим числом в конце

replace(str2,' ','0') не срабатывает

[Алексей]

Gameus_
вам случайно не для автонумерации это нужно строковых номеров документов?

[Gameus_]

именно для этого

[Алексей]

Фукнции есть
NextNumStr(string):string;
PrevNumStr(string):string;

[Gameus_]

Спасибо, полезные штуковины