В чем разница? аспекты компилятора Дельфи мне незнакомые.

← →
sniknik © (2003-07-18 17:32) [0]

почему так работает
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Title:= "Моя крутая прога"; Application.Run; end.

а так, не дает даже скомпилить? а если сделать билд(его дает) и сохранить проект то последующее открытие этого проекта вызывает ошибку.
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; const Test_STR = "Моя крутая прога"; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Title:= Test_STR; Application.Run; end.

изменения делались на пустом только что созданом проекте, проверялось в 6 и 7 дельфях (в обоих одинаково). думал может константа нулем не завершается, сам добавлял (Test_STR = "Моя крутая прога"#0). не проблема конечно, есть 2 рабочих варианта (второй в опциях проекта написать) просто интересно почему так происходит.
в любом другом месте (создание/показ формы/т.д.) меняется без проблем, и из любого источника (переменная/константа/т.д.).

← →
LordOfSilence © (2003-07-18 17:47) [1]

А если сделать Test_STR типизированной константой? Чего будет?
Не пробовал?

← →
me2 (2003-07-18 17:52) [2]

Ничего не изменится.

← →
sniknik © (2003-07-18 17:53) [3]

пробовал, та же фигня. (просто кнопка Run, и пункт меню по F9 становятся неактивными, похоже в любом случае если только после Title нет прямой строки - "xxxxx", строки, переменные,конкатентные из разных, функции их возврашающие, ничего не проходит)
странно да?

← →
sniknik © (2003-07-18 17:55) [4]

me2 (18.07.03 17:52)
почему? чего знаеш? делись сим тайным знанием. ;о))

← →
vuk © (2003-07-18 17:57) [5]

Этот баг IDE, кажется был в QualityCentral описан...

← →
sniknik © (2003-07-18 18:11) [6]

vuk © (18.07.03 17:57)
поточнее не вспомниш? я не нашол. (хотя если это уже опроделено, что баг... а надо ли? :о))

← →
Nikky © (2003-07-18 18:35) [7]

насчет багов иде в фаилах dpr (в 6-ых дельфях точно еще есть):

когда mdiform создается после (remote)datamodule, возникает ошибка при последующем создании mdichild..

если между созданиями форм вставить какой-либо код, формы, создаваемые после кода, не видятся в Project/Options/Forms/Auto-creatable forms..

← →
KDS © (2003-07-18 18:52) [8]

попробуй const uses поменять местами, вернее порядок изменить

KDS © (18.07.03 18:52)
в смысле?

константы перед uses нельзя поставить, вернее можно :о), но он после uses-ы не воспринимает, а порядок констант изменить? с одной как это получится? с первого места на нулевое поставить?. :о)))
а вобще весь код перед вами, я ничего не "сокращал", модуль в Unit1 пустой, как его автоматом делает.

вот если uses убрать то да, Run становится активным, но не компилится естественно (Application).

Этот баг известен уже давно. Добавление практически любых строк между begin и end проекта вызывает любо ошибку, либо некоторые модули (содержащие окна) изчезают из проекта.

см. также www.delphikingdom.ru -> "Подводные камни"

Aldor © (18.07.03 20:57)
плохо только что баги давно неизвестны тем кто в них втыкается, до того как, то есть.

посмотрел "Подводные камни"
нашол там еще один рабочий вариант от "Алексей Румянцев"
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; const Test_STR = "Моя крутая прога"; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); with Application do Title:= Test_STR; Application.Run; end.

понравилось, потому как сам до этого почемуто не додумался. (сейчас очевидно)

а вот с модулями в проекте проблем не было (активно пользуюсь), только он время от времени мое форматирование сбивает при добавлении нового модуля к примеру. но это совсем не проблема, лиш бы компилировалось и работало.
вот к примеру недавно начатый проект, в более развитых форм в файле проекта "между begin и end" побольше

program TrucksTrace; uses Windows, Forms, Controls, SysUtils, IniUnit in "IniUnit.pas", MainUnit in "MainUnit.pas" {MainForm}, DataUnit in "DataUnit.pas" {DMod: TDataModule}, ConUnit in "ConUnit.pas" {LogForm}, LogUnit in "LogUnit.pas", UserUnit in "UserUnit.pas" {UserForm}, ShowUserUnit in "ShowUserUnit.pas" {ShowUserForm}, CMagUnit in "CMagUnit.pas" {CMagForm}, PayUnit in "PayUnit.pas" {PayForm}, DriversUnit in "DriversUnit.pas" {DrvForm}; {$R *.res} var isApproveRun: boolean = false; begin Application.Initialize; Application.Title:= "Учет путевых листов & расчет зарплаты"; LoadParameters(ALL_PARAM); if FileExists(BaseName) then begin if (ParamCount = 1) and (Pos("REPAIR", UpperCase(ParamStr(1))) > 0) then begin if MessageBox(0, PChar("Была выбрана операция сжатия/восстановления базы данных "+BaseName+#13#10"Подтвердите для продолжения."), " Подтверждение", MB_YESNO + MB_ICONQUESTION) = IDYES then PackRepairBase(BaseName); end else begin with TLogForm.Create(nil) do begin isApproveRun:= ShowModal = mrOK; Free; end; end; end else if MessageBox(0, PChar("База данных "+BaseName+" не найдена. Создать новую?"#13#10"Не забудьте в новой базе завести пользователя! Для следующих подключений."), " Подтверждение", MB_YESNO + MB_ICONQUESTION) = IDYES then isApproveRun:= true; if isApproveRun then begin Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TDMod, DMod); end; Application.Run; end.

здесь только две PackRepairBase - форма с бегунком вызывается из процедуры.
и
TLogForm.Create(nil) - логон в базу, вызов непосредственно.

В чем разница? аспекты компилятора Дельфи мне незнакомые. Найти похожие ветки