|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.11.2008, 15:08 | #1 |
Пользователь
Регистрация: 22.11.2008
Сообщений: 65
|
одинаковый код в процедурах
Допустим, что следующий одинаковый код присутствует в двадцати процедурах:
Код:
Код:
Последний раз редактировалось jungle; 22.11.2008 в 15:34. |
22.11.2008, 15:57 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
выбирай
1вариант function privet: string; begin result:='ПРИВЕТВСЕМ'; end; edit1.text:=privet; 2 вариант( пожалуй оптимальный) const privet='ПРИВЕТ ОТ МАРТЫШКи'; edit15.text:=privet; 3 вариант procedure privet(edit: TEdit); begin edit.Text:='ВСЕМ ПРИВЕТ'; end; privet(edit7);
программа — запись алгоритма на языке понятном транслятору
|
22.11.2008, 17:28 | #3 |
Пользователь
Регистрация: 22.11.2008
Сообщений: 65
|
Большое спасибо, все получилось!
Код:
Код:
Последний раз редактировалось jungle; 22.11.2008 в 17:33. |
22.11.2008, 19:21 | #4 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Все процедуры (вернее, одна общая для всех) имеют вид
procedure TForm1.Privet(Sender: TObject); begin (Sender as TEdit).Text:='Привет!'; end; Передаете в качестве параметра нужный эдит и все... |
23.11.2008, 08:36 | #5 |
Пользователь
Регистрация: 22.11.2008
Сообщений: 65
|
Eсли так, то получится:
Код:
|
26.11.2008, 16:01 | #6 |
Пользователь
Регистрация: 22.11.2008
Сообщений: 65
|
Если кому потом надо будет, вот та же самая процедура вынесенная в DLL:
Код:
Код:
Последний раз редактировалось jungle; 26.11.2008 в 17:09. |
26.11.2008, 17:08 | #7 |
Пользователь
Регистрация: 22.11.2008
Сообщений: 65
|
А кто знает, как загрузить DLL динамически? Ниже пишу код, который компилируется, но прога не работает, и непонятно почему.
Код:
|
26.11.2008, 22:45 | #8 |
Пользователь
Регистрация: 22.11.2008
Сообщений: 65
|
А теперь получилось...
Плагин: Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Код на C++ | Иллидан | Общие вопросы Delphi | 1 | 08.10.2008 14:02 |
MySQL - рекурсия в хранимых процедурах | Банзай | SQL, базы данных | 0 | 12.08.2008 19:04 |
Как правильно использовать переменные в процедурах | nikolai_P | Microsoft Office Excel | 22 | 15.05.2008 13:15 |
Код Html | prizrak1390 | Общие вопросы Delphi | 4 | 13.04.2008 21:15 |
Материал о процедурах | Jondeer | Помощь студентам | 18 | 04.12.2007 21:22 |