Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> "Вырезать" кусок программы 
V
    Опции темы
Danя
  Дата 18.5.2007, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



У меня есть очень большой код - несколько тысяч строк(и это только начало). Процедура Listbox1click содержит примерно 700 строк. 
Вопрос:
Можно ли как-то вырезать её из кода, поместить в отдельный файл и загрузить во время выполнения программы??




Это сообщение отредактировал(а) Danя - 18.5.2007, 18:58
PM MAIL   Вверх
drkot
Дата 18.5.2007, 19:07 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



{$I includefile.pas}


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
lukas
Дата 18.5.2007, 19:19 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15



Danя, засунуть процедуру в dll файл...  smile ,  а для чего тебе это? если только для создания обновлений для проги, то в полне оправдано, а так зачем?,


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
valentos
Дата 18.5.2007, 19:33 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2



Цитата(lukas @  18.5.2007,  19:19 Найти цитируемый пост)
 а так зачем?

Ну допустим у человека, написана по обьему большая прога с использованием какой либо графики(картинки, анимация), ТЫ lukas  знаешь сколько такая прога оперативы жрет, да и .EXE весит немерено, тута без динамически подгружаемых DLL не обойтись!!! smile 


Это сообщение отредактировал(а) valentos - 18.5.2007, 19:35
--------------------
[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]
PM MAIL   Вверх
Danя
Дата 18.5.2007, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Valentos прав у меня дофига и графики и звуков!
PM MAIL   Вверх
Sansa
Дата 19.5.2007, 08:04 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: 3
Всего: 6



IMHO, графика или нет - 700 строк для процедуры очень много. Необходимо сделать декомпозицию задачи (разбить на процедуры), а там уже разносить их по юнитам
--------------------
- Здравствуйте, я Ваш патологоанатом
PM MAIL ICQ   Вверх
Danя
Дата 19.5.2007, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



lukas
Расскажи поподробнее про Dll, как подключить
Кстати а можно так сделать- сохранить unit с кодом этой процедуры. только как его потом  подключить smile 
PM MAIL   Вверх
Alexeis
Дата 19.5.2007, 12:36 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Danя, советую начать с прочтения учебника по Delphi, раздел про динамически компонуемые библиотеки (Dll), этот вопрос хорошо описан в литературе. Тут нет смысла его поднимать до прочтения книги.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Danя
Дата 19.5.2007, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Alexeis
ссылку можешь дать?
PM MAIL   Вверх
Alexeis
Дата 19.5.2007, 14:40 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Цитата(Danя @  19.5.2007,  13:13 Найти цитируемый пост)
ссылку можешь дать? 

Например книга 
Ксавье Пачеко - Delphi 5 Руководство разработчика



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
drkot
Дата 19.5.2007, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



Может я чего не понимаю, но какой смысл в использовании dll? Что 700 строк в юните, что 700 строк в dll суть от этого не меняется.


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
lukas
Дата 19.5.2007, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15



ничего, UPX вам в руки, он вам сжимает всю графику...  smile  И 10000 строк не проблема, если процедура занимает 700 строк, это что-то не реальное, по уму нужно делать, разбивать на функции и процедуры.


--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
ivan219
Дата 19.5.2007, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12



Цитата(lukas @  19.5.2007,  21:13 Найти цитируемый пост)
 по уму нужно делать, разбивать на функции и процедуры.

Это зделает программу более удобной и читабельной а вот производительность упадёт так что каму как smile 
PM MAIL ICQ   Вверх
skyboy
Дата 19.5.2007, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260



Цитата(drkot @  19.5.2007,  14:20 Найти цитируемый пост)
Может я чего не понимаю, но какой смысл в использовании dll?

после обсуждения размеров кода в строках звучало :
Цитата(Danя @  18.5.2007,  19:00 Найти цитируемый пост)
Valentos прав у меня дофига и графики и звуков! 

а при использовании dll с ресурсами загрузку этих самых в память можно управлять... Захотел - загрузил 5Мб звук. Не захотел - не занимаешь память...
PM MAIL   Вверх
Sansa
Дата 20.5.2007, 09:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: 3
Всего: 6



Цитата

Захотел - загрузил 5Мб звук. Не захотел - не занимаешь память... 

Причем здесь звук, графика... Вопрос поднимался про большое количество строк в коде. 
--------------------
- Здравствуйте, я Ваш патологоанатом
PM MAIL ICQ   Вверх
drkot
Дата 20.5.2007, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



skyboy, по моему исходный код это не звук и не графика  smile.
Во-вторых: если графику и звук (и прочую дрибедень) в dll-ки пихать ...
Короче слов нет.


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Danя
Дата 20.5.2007, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Вы мне можете конкретно сказать, как процедуры типа: 
Код

procedure Listbox1Click (...)
var
...
begin
...
end;

подгрузить из внешнего файла в определенную форму?
Пример приведенный drkot не работает(может я ни так делаю)
Я записываю процедуру в файл .pas и подключаю!


Это сообщение отредактировал(а) Danя - 20.5.2007, 16:19
PM MAIL   Вверх
drkot
Дата 20.5.2007, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



покажи как делаеш.
скорее всего 
Цитата(Danя @  20.5.2007,  16:08 Найти цитируемый пост)
я ни так делаю


PS: в хелпе детально описано использование директивы include



--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Danя
Дата 20.5.2007, 20:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



drkot У меня с Английским плохие отношения
Я подозреваю, что я функцию в .pas неправильно записываю:
Я просто вставляю всю функцию в этот файл

Вот pas - файл:

procedure Listbox1Click (...)
var
...
begin
...
end;

Это сообщение отредактировал(а) Danя - 20.5.2007, 20:29
PM MAIL   Вверх
drkot
Дата 20.5.2007, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



unit1.pas (твоя форма)
Код

...
// в разделе implementation там где должна быть пвоя процедура
{$I includefile.pas}
...


includefile.pas
Код

procedure Listbox1Click (...)
var
...
begin
...
end;


дериктивой include можно вставлять любые куски кода без оглядки на синтаксис языка. компилятор просто заменяет {$I .....} на текст который содержится указанном файле.


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Danя
Дата 21.5.2007, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Ща попробуем

НАРОД, МОЖЕТ КТО-НИБУДЬ ЗНАЕТ ЕЩЕ ВАРИАНТЫ???

Это сообщение отредактировал(а) Danя - 21.5.2007, 16:31
PM MAIL   Вверх
Yanis
Дата 21.5.2007, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111



$REGION smile


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Danя
Дата 21.5.2007, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Спасибо drkot smile  smile  smile 
Жаль + не могу поставить

Добавлено через 1 минуту и 19 секунд
Yanis, и чё с ним делать?

Это сообщение отредактировал(а) Danя - 21.5.2007, 16:37
PM MAIL   Вверх
aktuba
Дата 21.5.2007, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38



Цитата

Yanis, и чё с ним делать?


Курить... Умную литературу курить и хелпы... F1 почаще нажимать...  smile 


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Danя
Дата 21.5.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Цитата(aktuba @  21.5.2007,  16:43 Найти цитируемый пост)
Курить... Умную литературу курить и хелпы... 

smile Я вообще не курю! 

Это сообщение отредактировал(а) Danя - 21.5.2007, 17:18
PM MAIL   Вверх
Snowy
Дата 21.5.2007, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



REGION тут не поможет.
Если бы у человека была 2005-я дельфи и выше, вопрос бы был другим.
А вообще, процедура не должна превышать размера экрана.
Если превышает - нужно разбить на несколько отдельных логических процедур, каждая из которых по размеру не превышает экрана.
Просто нужно код разбить на отдельные логические блоки и оформить как отдельные процедуры.
Чтение кода заметно улучшится ;-)
В ListBoxClick должна находиться вообще одна строчка - вызов процедуры, которая выполнит действие.
700 строк кода - просто несеръёзно.
Значит там тупо накопипастено кода и алгоритм действий не продуман.
Нужно подумать над оптимизацией кода и его логической разбивкой.
А инклюдить - приделывать костыли хромой собаке.
PM MAIL   Вверх
Danя
Дата 21.5.2007, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Snowy, Это все я и так знаю, просто времени уже нету smile  завтра (22.05.2007) здавать проект. Хоть в каком то виде сдам 
А то у меня глаза от компьютера уже как у него: smile  и об стенку хочется бится smile  

Ну а так на будующее перечисли варианты, чтобы улучшить читабельность кода (кроме разбивки на отдельные блоки/процедуры)

PM MAIL   Вверх
drkot
Дата 21.5.2007, 19:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



Цитата(Danя @  21.5.2007,  16:37 Найти цитируемый пост)
Жаль + не могу поставить

это никргда не позно сделать

Цитата(Snowy @  21.5.2007,  17:31 Найти цитируемый пост)
А вообще, процедура не должна превышать размера экрана.

Эта фраза была актуальна для экранов типа 80*25. Сейчас такие экраны встречаются..., что на них пол проекта поместится  smile 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Danя
Дата 21.5.2007, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



drkot, Наберу 100 сообщений сразу поставлю
PM MAIL   Вверх
Snowy
Дата 21.5.2007, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Цитата(Danя @  21.5.2007,  18:55 Найти цитируемый пост)
Ну а так на будующее перечисли варианты, чтобы улучшить читабельность кода (кроме разбивки на отдельные блоки/процедуры)
Без разбивки - никак.
Логический блок должен быть виден на экране целиком, иначе скролл замучаешь - бегать туда-сюда.
Но можно конечно разбить и на регионы, если дельфя не ниже 2005-й.
Но лучше всё же разделить на отдельные блоки.
Ну и оформление кода должно соответствовать стандартам.

Цитата(drkot @  21.5.2007,  19:25 Найти цитируемый пост)
Эта фраза была актуальна для экранов типа 80*25. Сейчас такие экраны встречаются..., что на них пол проекта поместится
Нужно, чтобы влезало на экран любого, работающего с проектом.
То есть примерно не более 30-50 строк кода на блок.

Культура оформления кода прививается со временем.
Можно почитать исходняки VCL, чтобы привить себе культуру оформления.
Лучше начать это делать раньше, чем позже - потому что, когда выработается свой стиль написания кода, менять его будет ооочень трудно.
PM MAIL   Вверх
StranikS
Дата 21.5.2007, 21:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 1.2.2006

Репутация: 1
Всего: 2



Можно попробовать убить сразу двух зайцев - использовать поток. Код обработчика события твоего листбокса загоняшь в тело потока, которое размещаешь отдельным юнитом. А в обработчике просто этот поток запускаешь. В результате и 700 строк убраны в отдельный юнит и проблем с быстродействием визуализации листбокса не будет.
PM MAIL   Вверх
Alexeis
Дата 21.5.2007, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



  Ого тема превращается в 10 методов изврата над программированием  smile . Давайте кто еще круче завернет? Может еще написать плагин с COM сервером заодно, запускать его по сети с чужой машины при помощи заранее внедренного торянца, результаты сохранять в Базу данных и обращаться к ним при помощи SQL запросов. smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
drkot
Дата 22.5.2007, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 5
Всего: 8



Alexeis, думаю, что круче заворачивать не стоит.
И тему пора закрывать, пока она окончательно не забыли суть вопроса.

PS: а все так мило начиналось  smile 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
Danя
Дата 22.5.2007, 19:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.5.2007

Репутация: нет
Всего: нет



Ладно, впринципе я уже решил вопрос!!!




Всем пасибо

Вопрос закрыт

Это сообщение отредактировал(а) Danя - 22.5.2007, 19:14
PM MAIL   Вверх
Страницы: (3) [Все] 1 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1597 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.