Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c
3-1088593282
Darthman
2004-06-30 15:01
2004.07.25
Firebird (Interbase) хочу через insert вставить дату


4-1087209443
stas
2004-06-14 14:37
2004.07.25
Распределение прав доступа в NT


8-1083840133
lexx_av
2004-05-06 14:42
2004.07.25
Построение графика с помощью tchart


1-1089634124
REA
2004-07-12 16:08
2004.07.25
ComboBoxEx bug


3-1088139310
nik7777
2004-06-25 08:55
2004.07.25
Репликация между серверами FireBird 1.0.2




   Наверх