Invalid Filename

[LobsterOK]

Я новичок в программировании на Delphi.
Написал свою первую программу (чисто для практики и для интереса, что первое в голову пришло и что посчитал легким)

Написал прогу, все работает, кроме одного (ну одно из самого главного) и я уже второй день голову ломаю и не могу разобраться в чем проблемма.
ГУРУ посмотрите плиз если время есть.
Вобщем дело в том что когда открываешь прогу и создаешь базу все норм, но когда сначала открываешь базу, а потом пытаешься создать новую базу пишет что Invalid Filename и я не могу понять в чем проблема (((((.....
Вот главная проблема.

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

И если что не так подскажите как было бы лучше.
Хочется научиться нормально прогить ...

Всем заранее спасибо.

ЗЫ: исходники проги в аттаче.

[alexBlack]

Сообщение от LobsterOK

...Написал прогу, все работает, кроме одного (ну одно из самого главного) и я уже второй день голову ломаю и не могу разобраться в чем проблемма.
ГУРУ посмотрите плиз если время есть.
Вобщем дело в том что когда открываешь прогу и создаешь базу все норм, но когда сначала открываешь базу, а потом пытаешься создать новую базу пишет что Invalid Filename и я не могу понять в чем проблема (((((.....
Вот главная проблема....

OpenDialog1.Execute меняет текущий путь, а в unit6 Вы используете относительный путь для создания файла. Пишите полные пути:

fpath := ExtractFilePath(Application.ExeName )+'DataBases\' + ffname + '.pdb';

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

И если что не так подскажите как было бы лучше.
Хочется научиться нормально прогить ...

Всем заранее спасибо.

ЗЫ: исходники проги в аттаче.

Основное: используйте отступы для форматирования текста.

не объявляйте глобальных переменных, тем более с такими именами:

var i:integer; // недопустимо
implementation

[_SERGEYX_]

...И я посмотрел исходник на скорую руку... Сорри...
Переименовывай всё что встречается в коде... ибо читать unit1, unit2, form1, form2... глаза устают... не смог дочитать.

[LobsterOK]

Хорошо, большое спасибо за критику. Все постараюсь учесть.

alexBlack, за помощь отдельное спасибо!!

ЗЫ: жду еще высказываний, чем больше критики тем лучше , ибо больше нюансов стану учитывать.

ЗЫ2: а вообще код программы для новичка нормально написан? (если не учитывать отступы от полей для разных действий)

Сообщение от alexBlack

не объявляйте глобальных переменных, тем более с такими именами:

var i:integer; // недопустимо
implementation

Амм.. на сколько я знаю: те переменные, которые объявляются в процедуре не являются глобальными,
а таких переменных "var i:integer;" в основном коде программы я вроде не делал...., но все же на будущее учту.

[LobsterOK]

Да, и еще вопрос, когда прога работает, мне кажеться она черезчур много кушает ресурсво (согласитесь 5+ мб для такой мелкой проги многовато), с чем это связано? Как уменьшить ее аппетит?

[Николай1505]

парни подскажи в чем проблема этой программы?

[W0LF]

Николай1505
1. Один вопрос - одна тема
2. Может вы нам еще Word багнутый кинете и спросите почему он глючит? Исходник встудию!

[Николай1505]

понимаете я в этом ничего не понимаю а эту прогу надо запустить как это можно сделать? подскажите она должна открываться как тест но что то не так и она в обще не запускается пишет ошибка Invalid Filename