|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.07.2008, 00:01 | #1 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Как можно записать этот код покороче:
Код:
Последний раз редактировалось Stilet; 11.07.2008 в 11:40. |
11.07.2008, 00:47 | #2 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
запиши так:
Код:
Понятно объяснил?
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
11.07.2008, 11:22 | #3 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Не совсем понятно как их потом подцепить (vibor1). Например с 1:begin, 2:begin, 3:begin понятно, они цепляются с помощью
s1:=TStringList.Create; StrBreakApart(s,'\',s1); if s1[7]='ping_0' then case StrtoInt(a) of 1:begin... |
11.07.2008, 11:46 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вместо Этих твоих
Цитата:
Код:
I'm learning to live...
|
|
11.07.2008, 12:31 | #5 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Что-то я совсем запутался. Сначала говорили про количество игроков потом перешли на расы. Суть проблемыв том, чтобы сделать код прикреплённый в текстовом файле *.doc (Кошмар.rar) короче и чтобы он не потерял свою функциональность. А то с таким сидеть не возможно к томуже их два и всё это обходится почти в 300000 символов.
|
11.07.2008, 13:20 | #6 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Смысл в том чтобы избавить твою прогу от многочисленных case.
I'm learning to live...
|
|
11.07.2008, 14:01 | #7 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
по-моему так:
Код:
|
11.07.2008, 14:31 | #8 |
Участник клуба Подтвердите свой е-майл
Регистрация: 26.01.2008
Сообщений: 1,897
|
Всё получилось. Все спасибо за помощь.
Последний раз редактировалось Shouldercannon; 11.07.2008 в 22:46. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как укоротить string | UnD)eaD)Snake | Общие вопросы Delphi | 6 | 04.09.2007 17:18 |