Страница 1 из 1

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

Добавлено: 14 ноя 2006, 14:38
Gameus_
Собственно сабж :)

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

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

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

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

Добавлено: 14 ноя 2006, 14:52
Gameus_
куча пробелов и 1 в конце
спасает тока

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

for (p:=0;p<length(number);p:=p+1) if (number[p]=' ') number[p]:='0';
но что-то мне не нравится такая конструкция :(

Добавлено: 14 ноя 2006, 15:35
m0p3e
Может я конечно что то неправильно делаю но у меня работает.
number имя для переменной не совсем хорошее...

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

Пробуй

Добавлено: 14 ноя 2006, 15:56
Gameus_
у меня вот так:

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

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

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

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

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

Добавлено: 15 ноя 2006, 06:18
Алексей
Gameus_
вам случайно не для автонумерации это нужно строковых номеров документов?

Добавлено: 15 ноя 2006, 13:17
Gameus_
именно для этого :)

Добавлено: 15 ноя 2006, 13:20
Алексей
Фукнции есть
NextNumStr(string):string;
PrevNumStr(string):string;

Добавлено: 15 ноя 2006, 14:17
Gameus_
Спасибо, полезные штуковины :)