Помогите разобрать со String

[Пепел Феникса]

вообще то нормальное оно и будет
а то вы требуете чтобы у вас в одном символе были 10 разных
конечно такое условие не выполнится

[Ntlegend]

Пепел Феникса, обрати внимание на знак <> (не равно).. тоесть там в условии написано если символ не равен 1, не равен 2..не равен 9 - то...

[Utkin]

Сообщение от Ntlegend

тебе же во втором посте ответили.. нумерацыя символов в String'е начинается с 1 а не с 0.. ты пытаешься получить доступ к a[0] в котором хранится #0, тоесть символ окончания строки.. таким образом твоя строка s := s + a[i]; начинается с символа окончания строки, следовательно является пустой.. если ты свой цыкл будешь начинать не с 0 а с 1 - то и твой код будет работать..

S@fer, да StringReplace будет проще.. но если понадобится кроме цыфр еще какие нить символы отсеивать - то проще проверять наличие символа в множестве.. как в моём примере

В общем верно, однако имеются некоторые нюансы. Если это AnsiString (а скорее всего так оно и есть), то он ни куда не получает доступ, поскольку в данном случае a[] на самом деле адрес, а не последовательность символов. И здесь просто пресекается попытка доступа по несуществующему адресу. Не забывайте, что AnsiString пофигу на нуль - это строка паскалевского типа, то есть помимо самой строки имеется информация о месте ее расположения в динамической памяти, а также число символов в строке. И чисто номинально AnsiString может содержать в себе #0 (но я бы не рекомендовал).