Страница 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_
Спасибо, полезные штуковины
