[Alexs55]

Доброго всем здравия

Прочитал тему "Создание базы данных", и как себя в зеркале увидел. Нужна база данных, писать буду сам, опыта нет. Это про меня и про tadalex'а. Писать Что - то написать, понять что это всё ни то, начать заново и так по кругу, это уже хобби.
Это всё лирическое вступление. Теперь посьба. Посмотрите пожалуйста моё "произведение" и дайте оценку. Всего. Начиная с того, как присваиваю имена и оформяю код.

Исходники.rar

[Kailon]

Давай лучше сразу к делу Что не получается?

[Lost_Fish]

Код:

function NoProbel(Par : String; i : integer = 1): string;

эту функцию можно заменить на стандартную StringReplace,
и для значений 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 давай сразу к проблемам

[M.A.D.M.A.N.]

чтоб не замарачиваться с оформлением кода - почаще нажимай "Ctrl + D".

[Alexs55]

Доброго всем здравия

Давай лучше сразу к делу Что не получается?

Не получается написать красивую программу как с нутри так и с наружи.

Это пожалуй самое сложное. Путь от пограммы 'Hello Delphi' до этого "произведения" прошел примерно за полгода. С одной стороны гордость рапирает, сдругой стороны , понимю что здесь до совершенства как до Шанхая пешком. Проблема, про которую знаю, (если её можно так назвать) только одна. Как избавться от кнопки btDone на форме Start. Уж больно раздражают дурацкие вопрсы, на которые надо отвечать этой кнопкой. Замена вопрса проблемы не решит. Он всеравно будет дурацким.

Lost_Fish,
огромное спасибо за Ваш ответ. Очень ценен для меня. Именно таких ответов с нетерпением жду от всех вас.

Код:

function NoProbel(Par : String; i : integer = 1): string;

эту функцию можно заменить на стандартную StringReplace

не знал. Буду пробовать.

и для значений 1,0 есть тип Boolean

Непростительная ошибка даже для такого чайника как я. СПАСИБО!

Длину строк у эдитов я бы задал изначально (свойство CharLength) вместо проверки потом.

Я бы то же..... если бы внимательнее смотрел на свойства компонентов. Уже исправил.

Ваше замечание по поводу обхода компонентов.... Это относится ко всем подобным конструкциям, или только к Edit'ам? Дело в том, что в одной из предыдущих версий у меня была конструкция, подобная Вашей. Работала. Когда стал расставлять динамически создаваемые CheckBox'ы, количество которых будет меняться в дальнейем, возникли проблемы. Скорее всего из - за плохого знания языка. Все проблемы разрешились при объединении нужной группы компонентов в массив. Понравилось. Переписал всё под один стандарт. Тогда вопрос: Когда стоит создавать массив компонентов, а когда лучше обойтись без его.

это беглый взгляд

А по пристальней? Понимаю, копаться в чужом кривом коде.... И все таки, если не в лом. Помогите чайнику дорости хотя бы до самовара

Искал подходящие иконки для кнопок. Не нашел. Помогите чем можите. Все, что в комплекте с моим Delphi, пересмотрел.

P.S. Через 13 минут после открытия темы, к исходникам была добавлена база данных. Для тех, у кого в исходниках её не оказалось.