Случайно удалил файл project1

← →
Neon-w (2008-07-28 11:47) [0]

Случайно удалил файл project1, точнее заменил его на другой. Остались Unit`ы. Как снова собрать их в один проект??? Заранее спасибо.

← →
TUserClass © (2008-07-28 11:49) [1]

а расширение? *.dpr небось ?

← →
TUserClass © (2008-07-28 11:52) [2]

Открываем блокнотик, пишем :

program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; //ну и тут перечисляешь все юниты {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); //тут - все формы Application.Run; end.

и сохраняем в папке проги с расширением *.dpr и запускаем.

← →
Медвежонок Пятачок © (2008-07-28 12:01) [3]

Открываем блокнотик, пишем :

А почему не фотошоп и рисуем ....?

← →
Фрик (2008-07-28 12:02) [4]

Project1.~dpr
тоже заменил?

← →
{RASkov} © (2008-07-28 12:03) [5]

Создать новый проект в делфи. Исключить из него все(один по умолчанию) юниты. Добавить в проект нужные юниты. :)

← →
TUserClass © (2008-07-28 12:05) [6]

> Медвежонок Пятачок © (28.07.08 12:01) [3]

))) - не знаю ... прост привычка с нотепадиком)))

← →
neon-w (2008-07-28 12:08) [7]

program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; Unit2 in "Unit2.pas" {Form2}; Unit4 in "Unit4.pas" {Form4}; Unit5 in "Unit5.pas" {Form5}; Unit6 in "Unit6.pas" {Form6}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form2); Application.CreateForm(TForm1, Form4); Application.CreateForm(TForm1, Form5); Application.CreateForm(TForm1, Form6); Application.Run; end.
declaration expected but identifier "Unit2" found - такая ошибка
undeclared identifier "Form2" - и несколько таких
file not found: "Project1.res"

что сделал не так? объясните плиз...

← →
Игорь Шевченко © (2008-07-28 12:10) [8]

> что сделал не так?

знаки препинания не те расставил

← →
Медвежонок Пятачок © (2008-07-28 12:10) [9]

что сделал не так? объясните плиз...

Говорю же фотошоп круче нотепада

← →
TUserClass © (2008-07-28 12:10) [10]

1:
Точки с запятой убери после

Unit1 in "Unit1.pas" {Form1}; Unit2 in "Unit2.pas" {Form2}; Unit4 in "Unit4.pas" {Form4}; Unit5 in "Unit5.pas" {Form5};

и поставь вместо них запятые

2:
Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm4, Form4); Application.CreateForm(TForm5, Form5); Application.CreateForm(TForm6, Form6);

← →
Olegz77 © (2008-07-28 12:10) [11]

Unit1 in "Unit1.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}, Unit4 in "Unit4.pas" {Form4}, Unit5 in "Unit5.pas" {Form5}, Unit6 in "Unit6.pas" {Form6};
точка запятой только в конце объявления. В середине - запятые

← →
Olegz77 © (2008-07-28 12:11) [12]

пока писал - ответили :)

← →
TUserClass © (2008-07-28 12:12) [13]

А куда TForm3 подевался ? иль его не было ?

← →
Фрик (2008-07-28 12:12) [14]

Удалено модератором

← →
neon-w (2008-07-28 12:14) [15]

3 не было и не надо )

С запятыми сам разобрался) А вот что за Project1.res??? Что в нём храниться хоть могло?

← →
TUserClass © (2008-07-28 12:17) [16]

> neon-w (28.07.08 12:14) [15]

Cоздай новый проект - и скопируй Project1.res к себе в директорию.

← →
Рамиль © (2008-07-28 12:17) [17]

> С запятыми сам разобрался) А вот что за Project1.res???
> Что в нём храниться хоть могло?

Ресурсы, иконка приложения, например.

← →
Игорь Шевченко © (2008-07-28 12:17) [18]

> Что в нём храниться хоть могло?

его ты тоже вытер ?

← →
{RASkov} © (2008-07-28 12:19) [19]

> [15] neon-w (28.07.08 12:14)

Иконка и сведения о версии.... ресурсы в общем. Он сам пересоздастся.

← →
neon-w (2008-07-28 12:20) [20]

Да незнаю ) Вставил тот что был... вроде работает, хотя может быть это от другого проекта... Ну дальше я уж сам разберусь.

Спасибо всем за участие )

← →
TUserClass © (2008-07-28 12:20) [21]

> Игорь Шевченко © (28.07.08 12:17) [18]

Я не удивлюсь, если он еще и *.dfm"ы все потер :)

← →
neon-w (2008-07-28 12:53) [22]

Еще вопрос... Теперь почему то в тех местах, где должны были появляться формы, кроме первой
form2.visible := true; и тд

появляеться еще одна ПЕРВАЯ ФОРМА!!!! Может кто нить знает в чем дело?

← →
Рамиль © (2008-07-28 12:55) [23]

Она должна появляться.

← →
neon-w (2008-07-28 13:03) [24]

Эммм... а более развернутый ответ?

← →
TUserClass © (2008-07-28 13:09) [25]

Код в студию...

← →
neon-w (2008-07-28 13:10) [26]

if (s4et <> 0) then begin ;form6.Visible := false; Form6.Visible := true; exit; end;

← →
TUserClass © (2008-07-28 13:12) [27]

Удалено модератором

← →
neon-w (2008-07-28 13:14) [28]

Удалено модератором

> neon-w (28.07.08 13:10) [26]

Я не понял - у тебя в этом куске кода появляется 2 ГЛАВНЫЕ ФОРМЫ ???

> появляеться еще одна ПЕРВАЯ ФОРМА!!!!

Как это интерпретировать?? И в каком событии?

← →
neon-w (2008-07-28 13:18) [31]

Да... раньше стабильно выезжала вторая, а теперь появляеться первая.... ИМЕННО В ЭТОМ КУСКЕ.... если его отключить, то вообще ничего не происходит...

← →
neon-w (2008-07-28 13:20) [32]

Видная первая форма, тыкаем на кнопку и вместо появления второй, снова появляется первая... ЕЩЕ ОДНА....еще раз тыкаем кнопку появляется ЕЩЕ одна Form1 и тд

← →
neon-w (2008-07-28 13:21) [33]

Если изначально поставить дополнительные формы видимыми(в объект инспекторе), то при запуске они все равное не видны....

> neon-w (28.07.08 13:18) [31]

В этом куске кода ни то что про первую, да и про вторую то ничего не написано. Тут написано

Если счет неравен 0, тогда начать
1. ничего не делать
2. Скрыть 6-ую форму
3. Показать 6-ую форму
4. Выйти из процедуры
закончить

> neon-w (28.07.08 13:20) [32]

Прост рекурсия какая-то :)

Кидай проект на zalil.ru

Вот наверняка, я щас буду прав. ))

Напиши здесь все что у тебя написано в Project1.dpr.

Наверняка у тебе тут ошибка.
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm4, Form4); Application.CreateForm(TForm5, Form5); Application.CreateForm(TForm6, Form6);

> neon-w (28.07.08 13:18) [31]

Пост [10] прочитать не судьба?

← →
neon-w (2008-07-28 13:39) [39]

вот, точно...

Спасибо Игорь! )

Незачто...Да и вообще лучше называть формы как-нить осознано. Типа MainForm, AuthForm, SettingsForm и т.д. - дабы не путаться.

Случайно удалил файл project1 Найти похожие ветки