ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Способ автосохранения Editов, CheckBoxов, Memo и т.д.
5 сообщений из 30, страница 2 из 2
  2  все
Способ автосохранения Editов, CheckBoxов, Memo и т.д.
    #39850199
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
makhaonлучше не писать портянки с частными компонентами, а юзать RTTI
+100500
...
Рейтинг: 0 / 0
16.08.2019, 10:35
| Ответить | Цитировать | Написать  
Способ автосохранения Editов, CheckBoxов, Memo и т.д.
    #39850203
энди
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
энди
Участник
Даже не ради обсуждения смысли изобретения собственного велосипеда, а только ради чистоты кода. Вам не кажется что слишком много повторяющегося текста?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
{$ifdef JV}
        if Parent.Controls [i] is TJvDriveCombo then
          ini.WriteString(Capt, Parent.Controls [i].name, (Parent.Controls [i] as TJvDriveCombo).Drive);
        if Parent.Controls [i] is TJvDirectoryListBox then
          ini.WriteString(Capt, Parent.Controls [i].name, (Parent.Controls [i] as TJvDirectoryListBox).Directory);
        if Parent.Controls [i] is TJvFileListBox then
          ini.WriteString(Capt, Parent.Controls [i].name, (Parent.Controls [i] as TJvFileListBox).FileName);
{$endif}



Parent.Controls [i] банально завернуть в отдельную переменную и уйдет вагон лишнего текста из кода. As тоже непонятно зачем нужен, Вы уже проверили тип ранее. Это все больше к оформлению кода придирки, а не функциональности :)
...
Рейтинг: 0 / 0
16.08.2019, 10:40
| Ответить | Цитировать | Написать  
Способ автосохранения Editов, CheckBoxов, Memo и т.д.
    #39850210
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
Поздравляю, ты изобрел WriteComponent )))
...
Рейтинг: 0 / 0
16.08.2019, 10:46
| Ответить | Цитировать | Написать  
Способ автосохранения Editов, CheckBoxов, Memo и т.д.
    #39850216
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
К сожалению, у всех контролов их значение хранятся в разных свойствах, поэтому без перебора вряд ли получится
TEdit.Text
TDateTimePicker.Date
TMemo.Lines.Text
TListBox.Items.Text
TCheckBox.Checked
Tcx<EditControl>.Properties.EditValue
...
Рейтинг: 0 / 0
16.08.2019, 10:50
| Ответить | Цитировать | Написать  
Способ автосохранения Editов, CheckBoxов, Memo и т.д.
    #39850387
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
По-хорошему, если нужно только значение, то делать кучу перегруженных методов Read/WriteValue с параметром контрола соответствующего класса, либо задавать пары имя класса-имя свойства.
...
Рейтинг: 0 / 0
16.08.2019, 14:35
| Ответить | Цитировать | Написать  
5 сообщений из 30, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Способ автосохранения Editов, CheckBoxов, Memo и т.д.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39850216&tid=2039136]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 165ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 234ms
total:  454ms
созд. / загр.: 454ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]