|
|||||||
| Разработка Раздел для совместной разработки/доработки программы |
|
|
Опции темы | Опции просмотра |
16.09.2009, 11:38
|
#11 |
|
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
 |
Код:
410 115 alexteam i := 1; 411 alexteam while i <= Length(charname) do 412 alexteam begin 413 alexteam if pos(lowercase(charname[i]), 'qwertyuiopasdfghjklzxcvbnm1234567890.') > 0 then 414 alexteam inc(i) 415 alexteam else 416 alexteam delete(charname,i,1); 417 alexteam end; что за скрипт и ГДЕ ты пытаешься его запустить ? Добавлено через 2 минуты и вообще.. какойто бредовый репорт... ассорти чемто напоминает упоминание одновременно о куче юнитов без какойто логической цепочки....
__________________
L2Ext - project closed. Последний раз редактировалось alexteam, 16.09.2009 в 11:39. Причина: Добавлено сообщение |
|
|
|
Древовидный вид
|
|
Часовой пояс GMT +4, время: 10:10.