[Screch]

Всем привет! Вопрос собственно вот в чем:
Для получения данных с АЦП используется шаблон кода на Делфи..
Параметры платы указываются как константы

Код:

const
     BOARD_NAME         =  'LA2USB';
     BASE_ADDRESS      =  1;         
     DRQ_NUMBER         =  0;         
     GET_SIZE              =15000 ;
     MAIN_SIZE            = 1;  {кол-во блоков по 1024}
     ch = 24;
     Const arr1 :array[0..1] of char =(#13, #10);
     NUMBER_OF_MEASURES = 1;
     Massive_Size = GET_SIZE;
     pic  = 625 ;

Admin: Пользуемся тегами!

Так вот, как сделать так , чтобы потом прямо из формы можно было задавать эти параметры?
Спасибо.

[Страдалецъ]

Так и сделайте. Накидайте на форму кучку TEdit и используйте свойство EditN.Text вместо ваших констант, только незабудьте, где это необходимо преобразовывать текст в число StrToInt(EditN.Text)

[Screch]

Так в том то и дело , что преобразование идет StrToInt, а параметры платы указаны как const, и он начинает ругаться на несоответствие типов..

[Страдалецъ]

Конкретно покажите место вашего кода, где он ругается.

[TOJluK]

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

Так в том то и дело , что преобразование идет StrToInt, а параметры платы указаны как const, и он начинает ругаться на несоответствие типов..

Ну дык убири из кода объявление const, объяви все как переменные

[Screch]

TOJluK: попробую сделать как вы сказали,но дело в том , что основной шаблон связан еще с отдельными модулями , где описывается подключение проги к драйверу АЦП , получение его интерфейса и тд. Наверняка , эти параметры АЦП также должны быть прописаны в этих отдельных модулях, тогда придется и эти модули переворачивать и все изменять. Во вторник будет возможность все проверить и тогда и отпишусь получилось или нет..

[TOJluK]

Вариантов много, конечно. Не видя код, остается только гадать. Объяви их в разделе Public или сделай свой Type.