Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.09.07;
Скачать: [xml.tar.bz2];

Вниз

Случайно удалил файл 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]

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


 
TUserClass ©   (2008-07-28 13:14) [29]


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

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


 
TUserClass ©   (2008-07-28 13:17) [30]


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

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


 
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]

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


 
TUserClass ©   (2008-07-28 13:23) [34]


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

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

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


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

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


 
TUserClass ©   (2008-07-28 13:25) [35]

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


 
TUserClass ©   (2008-07-28 13:27) [36]

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

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


 
TUserClass ©   (2008-07-28 13:29) [37]

Наверняка у тебе тут ошибка.

Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);


 
Плохиш ©   (2008-07-28 13:31) [38]


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

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


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

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

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


 
TUserClass ©   (2008-07-28 13:54) [40]

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



Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.09.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.53 MB
Время: 0.007 c
3-1205271880
GanibalLector
2008-03-12 00:44
2008.09.07
backup/restore Firebird


3-1204803441
igorm
2008-03-06 14:37
2008.09.07
sql как выбрать наибольшее знач из трех полей табл


2-1217367780
Неподарок
2008-07-30 01:43
2008.09.07
Документ как книга


2-1215946567
Вопросик
2008-07-13 14:56
2008.09.07
Как данные из DBGrid переписать в memo?


3-1205314401
Avds
2008-03-12 12:33
2008.09.07
ошибка в ХП (expression evaluation not supported.)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский