with frmSplashScreen do
try
Update;
Application.CreateForm(TfrmDM, frmDM); //data module
Update;
Application.CreateForm(TfrmDMGenerator, frmDMGenerator);
//secondary data module
Update;
Application.CreateForm(TfrmMain, frmMain);
Update;
except
ShowMessage('Fehler beim Laden der Formulare.');
Application.Terminate;
end;
procedure TfrmDM.DataModuleCreate(Sender: TObject);
begin
try
IgnoreTranslations; //dxgettext command
TranslateComponent(self); //dxgettext command
qrySums.SQL.Text := [snip] //SQL command
except;
end;
if GetCurrentLanguage = 'de' then
begin
tblPaymentFrequency.Filter := 'ID>=10 and ID<20';
tblInsuranceEvent.Filter := 'ID>=10 and ID<20';
end;
end;
procedure TfrmDMGenerator.DataModuleCreate(Sender: TObject);
begin
TranslateComponent(self);
qryGeneratorSums.SQL.Text := [snip] //SQL command
end;
procedure TfrmMain.FormCreate(Sender: TObject);
var
strAppPath, strChmFile: string;
begin
Screen.Cursor := crHourGlass;
blnFormVisible := false;
blnOrganisationVisible := False;
blnStartup := True;
cliDataSets := TComponentList.Create; //global variable
try
CreateMutex(nil, False, 'Or-Fin-Mutex');
except;
end;
InitialiseBlnVariables;
try
try
IgnoreTranslations;
TranslateComponent(self);
except
ShowMessage('Fehler beim Übersetzen.');
end;
SetLanguageDependentSettings;
InitialiseSliHintLabels;
IncreaseFieldHeights(Sender);
SetMadExceptSettings;
Application.OnHint := DisplayHint;
Caption := GetAppName;
lblDate.Caption := Date2LongDOW(Date) + ', ' + DateToStr(Date);
pcoMain.ShowTabs := false;
strAppPath := ExtractFilePath(Application.exename);
strImgPath := strAppPath + '/img/';
strChmFile := strAppPath + HelpFileName;
mHHelp := nil;
try
if not FileExists(strChmFile) then
begin
ShowMessage(format(_('Help file %s not found' + #13#10
+ 'in folder %s'), [HelpFileName, strAppPath]));
end;
except;
end;
//Version control for HTML Help 1.2 or higher:
if (hh.HHCtrlHandle = 0) or (hh_funcs._hhMajVer < 4)
or ((hh_funcs._hhMajVer = 4) and (hh_funcs._hhMinVer < 73)) then
begin
ShowMessage(_('This application requires MS HTML Help 1.2 or
higher '
+ 'to be installed'));
end;
//Hook to call HTML Help instead of WinHelp:
mHHelp := hh_funcs.THookHelpSystem.Create(strChmFile, '', htHHAPI);
SetScreenResolutionVariable;
pcoMain.DefaultPage := tshActualState1024;
try
ConnectGrids;
except
ShowMessage('Fehler beim Verbinden der Grids.');
end;
InitialiseEditRepository;
with frmDM do
begin
SetLanguageFilter;
qryLkuPaymentFrequency.Parameters[0].Value := LeftStr(
ReadLanguageFromRegistry, 2);
qryLkuAssuranceEvent.Parameters[0].Value := LeftStr(
ReadLanguageFromRegistry, 2);
end;
FillDropDownFieldsWithValues;
CreateOrOpenDB;
if not blnTerminated then
begin
FillLookupFieldsWithValues;
sliSQL := TStringList.Create;
ctrShowParent := pcoMain;
with mniSaveAs.Dialog do
begin
DefaultExt := ext;
FileName := ExtractFileName(ReadCurrentFileFromIni);
Filter := GetAppName + ' (*' + ext + ')|*' + ext;
InitialDir := ReadDBPathFromRegistry;
end;
SetEuroPerYearCaption;
InitialiseLabelHints;
RC.RegString := GetAppName + ' code';
RC.Modifier := GetAppName + ' modifier';
if not blnFull then
CheckReg;
end;
finally
Screen.Cursor := crDefault;
end;
end;
> -----Original Message-----
> From: [email protected]
> [mailto:[EMAIL PROTECTED] On Behalf Of Walter Prins
> Sent: 10 July 2005 23:12
> To: [email protected]
> Subject: Re: RE: [delphi-en] bugreport
>
>
> Hi
>
> >I have put an application.terminate into the except part of a
> >try..except in the initialization, so this seems to be where
> the @Halt0
> >comes from. I can't find anywhere in this part of the program that I
> >may try to free something I didn't allocate. It also
> doesn't explain
> >why I can't reproduce this error and none of my colleagues or other
> >customers has ever encountered this problem. How can it be that a
> >problem like this exists on only one computer?
>
> It's not to say it's a problem freeing something. It might
> also be trying
> to access (dereference) an (as yet) uninitialised object
> variable. (I
> suppose it might be possible that in the case of an
> uninitialsed object
> reference, the actual contents of the reference on this
> particular machine
> happens to cause an AV due to the particular state on the
> machine when the
> app runs which probably has an effect on the actual value of
> the reference.)
> Anyway, I don't suppose you can post the code between the
> try/except where
> you're getting the error?
>
> Cheers
>
> Walter
>
>
>
> -----------------------------------------------------
> Home page: http://groups.yahoo.com/group/delphi-en/
> To unsubscribe: [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>
>
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
