Показать сообщение отдельно
  #3  
Старый 21.10.2009, 19:46
Romix Romix вне форума
Начинающий
 
Регистрация: 10.02.2008
Сообщения: 136
Версия Delphi: XE2
Репутация: 41
По умолчанию

Код:
const CR: string = '0' + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9'
                 + 'Q' + 'q' + 'W' + 'w' + 'E' + 'e' + 'R' + 'r' + 'T' + 't'
                 + 'Y' + 'y' + 'U' + 'u' + 'I' + 'i' + 'O' + 'o' + 'P' + 'p'
                 + 'A' + 'a' + 'S' + 's' + 'D' + 'd' + 'F' + 'f' + 'G' + 'g'
                 + 'H' + 'h' + 'J' + 'j' + 'K' + 'k' + 'L' + 'l' + 'Z' + 'z'
                 + 'X' + 'x' + 'C' + 'c' + 'V' + 'v' + 'B' + 'b' + 'N' + 'n'
                 + 'M' + 'm';

Что значит перечисляй.??! оО... Если бы было все так просто уже сделал бы... 0001, 0002, 0003... 0009...000m. Далее нужно определить что символы закончились... И поменять пред последний символ... 0010... 001m... Но тут проблема в том... Что под каждый символ че то нехочится код писать... Может предложите алгоритм???
Ответить с цитированием