Главная страница
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.051 c
1-1089552359
Tahion2
2004-07-11 17:25
2004.07.25
Добавить прозрачную Label на CoolBar без полосы.


4-1087321751
juiceman
2004-06-15 21:49
2004.07.25
перехват сообщения


4-1086903079
Zahar
2004-06-11 01:31
2004.07.25
Переменные окружения


14-1089036311
Igorek
2004-07-05 18:05
2004.07.25
begin/end в начале/конце процедуры необязательные


8-1084256134
Akron
2004-05-11 10:15
2004.07.25
Работа с MS Agent