Вниз
Скачать: 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.026 c
1-1089358029
Sur
2004-07-09 11:27
2004.07.25
JPG+EOF+SomeText


1-1089520403
TUser
2004-07-11 08:33
2004.07.25
CreateProcess+AssignFile


14-1089017822
Сергей Г
2004-07-05 12:57
2004.07.25
Переведи


4-1086968728
BalloonHint
2004-06-11 19:45
2004.07.25
Tray на Api


1-1088397151
3fc
2004-06-28 08:32
2004.07.25
Ошибка при иcпользовании ListView




   Наверх