Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

TRadioGroup и файл   Найти похожие ветки 

 
Norfolk   (2004-07-09 18:13) [0]

Доброго времени суток.
Проблема в следующем:
Имеется файл в котором находится запись:

TSettings = record
   Name1, Name2, Name3, Name4, Name5, Name6: string[30];
   Way1, Way2, Way3, Way4, Way5, Way6, Password: string[255];
   Active1, Active2, Active3, Active4, Active5, Active6: boolean;
 end;

Также на форме имеестся элемент типа TRadioGroup в который загружаются элементы Name1..Name6 из файла. Но при этом если Active1 = False, то Name1 не загружается в список и т.д.
Далее при нажатии на кнопку другой форме передаётся содержимое Way (т.е. если выбрано Name1, то передаётся Way1).
А вопрос собственно такой: как передать Way соответствующего номера (Name1 -> Way1) если один из Active имеет значение False (например Active3, тогда этого элемента не будет в TRadioGroup и ItemIndex = 2 будет содержать Name4)?
У кого возникли мысли по этому вопросу просьба поделиться.


 
clickmaker ©   (2004-07-09 19:49) [1]

я бы начал с того, что

TSettings = record
 Name: array[0..5] of string;
 Way: array[0..5] of string;

и т.д.

так будет проще


 
Norfolk ©   (2004-07-09 20:00) [2]

Так в том-то и вся запарка, что структуру изменять нельзя.


 
Sheng   (2004-07-09 21:04) [3]

Есть идейка такая...
Создать запись
TSettings = record
  Names: array [1..6] of String[30];
  Ways: array [1..6] of String[255];
  Password: String[255];
  Actives: array [1..6] of Boolean;
end;
Загрузить в неё в цикле, и потом скопировать эту запись в запись того типа. Теоретически, должно сработать...



Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1089717680
Relaxxx
2004-07-13 15:21
2004.07.25
Как мне к каждому итемсу комбоБокса прицепить уникальный номер??


3-1088488183
Akella
2004-06-29 09:49
2004.07.25
Народ подскажите как указать универсальный путь к базе данных


14-1089015343
WondeRu
2004-07-05 12:15
2004.07.25
Давайте создадим новую конференцию "Женщины и выпивка"


4-1086858192
Dmitriy_R
2004-06-10 13:03
2004.07.25
Управление чужой программой


1-1089738629
Helper
2004-07-13 21:10
2004.07.25
Упаковка файлов компонентом Tzip