|
#1
|
|||
|
|||
Нужны советы
Доброго всем здравия
Прочитал тему "Создание базы данных", и как себя в зеркале увидел. Нужна база данных, писать буду сам, опыта нет. Это про меня и про tadalex'а. Писать Что - то написать, понять что это всё ни то, начать заново и так по кругу, это уже хобби. Это всё лирическое вступление. Теперь посьба. Посмотрите пожалуйста моё "произведение" и дайте оценку. Всего. Начиная с того, как присваиваю имена и оформяю код. Исходники.rar Windows 7, Delphi XE, Firebird 2.5, IBExpert Последний раз редактировалось Alexs55, 05.09.2012 в 23:56. |
#2
|
||||
|
||||
Давай лучше сразу к делу Что не получается?
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#3
|
||||
|
||||
Код:
function NoProbel(Par : String; i : integer = 1): string; и для значений 1,0 есть тип Boolean Код:
var x:Boolean; y:Integer; begin if x then //смотриться лучше чем if y=1 then end; Длину строк у эдитов я бы задал изначально (свойство CharLength) вместо проверки потом чтобы обойти все контролы на панели не обязательно присваивать их переменным, у каждого компонента есть массивы Components[] и Controls[], кол-во элементов ComponentCount и ControlCount соответственно что то типа Код:
for x:=0 to pnl.ComponentCount-1 do if pnl.Components[x] is TEdit then //TEdit(pnl.Components[x]).свойство:=чемуто //или //(pnl.Components[x] as TEdit).свойство:=чемуто это беглый взгляд, присоединяюсь к Kailon давай сразу к проблемам Код сырец Последний раз редактировалось Lost_Fish, 06.09.2012 в 06:59. |
Этот пользователь сказал Спасибо Lost_Fish за это полезное сообщение: | ||
Alexs55 (07.09.2012)
|
#4
|
||||
|
||||
чтоб не замарачиваться с оформлением кода - почаще нажимай "Ctrl + D".
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Alexs55 (07.09.2012)
|
#5
|
|||||
|
|||||
Доброго всем здравия
Цитата:
Не получается написать красивую программу как с нутри так и с наружи. Это пожалуй самое сложное. Путь от пограммы 'Hello Delphi' до этого "произведения" прошел примерно за полгода. С одной стороны гордость рапирает, сдругой стороны , понимю что здесь до совершенства как до Шанхая пешком. Проблема, про которую знаю, (если её можно так назвать) только одна. Как избавться от кнопки btDone на форме Start. Уж больно раздражают дурацкие вопрсы, на которые надо отвечать этой кнопкой. Замена вопрса проблемы не решит. Он всеравно будет дурацким. Lost_Fish, огромное спасибо за Ваш ответ. Очень ценен для меня. Именно таких ответов с нетерпением жду от всех вас. Цитата:
Цитата:
Цитата:
Ваше замечание по поводу обхода компонентов.... Это относится ко всем подобным конструкциям, или только к Edit'ам? Дело в том, что в одной из предыдущих версий у меня была конструкция, подобная Вашей. Работала. Когда стал расставлять динамически создаваемые CheckBox'ы, количество которых будет меняться в дальнейем, возникли проблемы. Скорее всего из - за плохого знания языка. Все проблемы разрешились при объединении нужной группы компонентов в массив. Понравилось. Переписал всё под один стандарт. Тогда вопрос: Когда стоит создавать массив компонентов, а когда лучше обойтись без его. Цитата:
Искал подходящие иконки для кнопок. Не нашел. Помогите чем можите. Все, что в комплекте с моим Delphi, пересмотрел. P.S. Через 13 минут после открытия темы, к исходникам была добавлена база данных. Для тех, у кого в исходниках её не оказалось. Windows 7, Delphi XE, Firebird 2.5, IBExpert |