Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 31.01.2015, 15:12
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

С этого и надо было начинать.
1) CHUNKCACHESIZE=16 и GAMESPEED=3 есть везде. Значит их надо однозначно вынести из условий чекбоксов и писать отдельно (всегда).
2) FASTLOCK=ON есть везде, кроме 5-го. Значит если стоит чекбокс 5, то пишем OFF, иначе - пишем ON.
3) NOPRELOADSECTORS есть везде, кроме 8. Значит, опять же, если стоит чекбокс 8, то пишем preloadsize. В остальных случаях пишем nopreloadvectors.
4) SOFTWARE3D EDITOR VOODOO NOBLITTEXTURES NOTEXOVERLAYS - раскиданы по чекбоксам.
Код:
params := 'FASTLOCK=';
if checkbox5.checked then
    params := params + 'OFF'
else
    params := params + 'ON';
if checkbox2.checked then
    params := params + ' SOFTWARE3D';
if checkbox3.checked then
    params := params + ' EDITOR';
if checkbox4.checked then
    params := params + ' VOODOO';
if checkbox6.checked then
    params := params + ' NOBLITTEXTURES';
if checkbox7.checked then
    params := params + ' NOTEXOVERLAYS';
if checkbox8.checked then
    params := params + ' PRELOADSIZE=' + inttostr(...)
else
    params := params + ' NOPRELOADSECTORS';
params := params + ' CHUNKSIZE=' + inttostr(...) + ' GAMESPEED=' + inttostr(...);
И все дела.
Ну и дополнительно можно поставить проверку, что если не стоит ни один чекбокс, то сразу выход из функции с возвратом пустых параметров.
Кстати у вас получается, что 1 чекбокс лишен смысла.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 31.01.2015 в 15:20.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Alloc (01.02.2015)
  #17  
Старый 01.02.2015, 13:01
Аватар для Alloc
Alloc Alloc вне форума
Начинающий
 
Регистрация: 17.09.2014
Сообщения: 104
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Bargest, спасибо за код, это то, что было нужно, а главное все очень просто и понятно)

А так же спасибо всем тем кто пытался помочь, некоторые приведенные здесь примеры я даже сохраню, возможно потом пригодятся) Всем спасибо!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:50.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025