[SOLVED] Destroy and Halt are failing

[yurkad]

After the Halt command failed I inserted before command application.Destroy.

Code: Pascal  [Select][+][-]

1. Application.Destroy;
2. Halt;

Application.Destroy Command was failed in application.inc file in line 165:

Code: Pascal  [Select][+][-]

1. inherited Destroy;

After this I commented line 165 in application.inc file.
Then Application.Destroy Command was filed in Win32WSButtons.pp file in line 491:

Code: Pascal  [Select][+][-]

1. if ThemeServices.ThemesAvailable and
2.   (Windows.SendMessage(Window, BCM_GETIMAGELIST, 0, Windows.LPARAM(@ButtonImageList)) <> 0) then

How can be solved this?

[Cyrax]

Never ever call TObject.Destroy directly. Use TObject.Free instead.

In your case, calling Application.Terminate is the right way.

[taazz]

After the Halt command failed I inserted before command application.Destroy.

Code: Pascal  [Select][+][-]

1. Application.Destroy;
2. Halt;

Application.Destroy Command was failed in application.inc file in line 165:

Code: Pascal  [Select][+][-]

1. inherited Destroy;

After this I commented line 165 in application.inc file.
Then Application.Destroy Command was filed in Win32WSButtons.pp file in line 491:

Code: Pascal  [Select][+][-]

1. if ThemeServices.ThemesAvailable and
2.   (Windows.SendMessage(Window, BCM_GETIMAGELIST, 0, Windows.LPARAM(@ButtonImageList)) <> 0) then

How can be solved this?

1) always post the error message and all the required information.
2) try to always include a sample application with your question that shows the problem.
3) never ever forget to post your target widget, OS and processor. As far as I remember halt should work on windows on all cases.

[yurkad]

1) always post the error message and all the required information.
2) try to always include a sample application with your question that shows the problem.
3) never ever forget to post your target widget, OS and processor. As far as I remember halt should work on windows on all cases.

Error:
Exception of the class External: SIGILL
Direction: 580005

SO:
Windows XP Profesional Vers 2002 Service Pack 3

Processor:
Pentium(R) Dual Core CPU E5800 @3.20 GHz

Lazarus
1.6.4

In additional attachment.

And now I wll prepare sample application.

[yurkad]

In attachment is sample of application with halt which is failed.

It seems the problem is in using of TComboBox control.
If disconnect using of TComboBox then halt is working.
For disconnect using of TComboBox check Disconnect ComboBox Using CheckBox.

For see  that halt is not works click on Test1 or Test2 node and after this click on Terminate

[Thaddy]

I get sick of rar. I won't open it.
First learn to program

[yurkad]

First learn to program

Just I do it 

[Thaddy]

Yes, I know  I just tend to get impatient with age 
I will still try to help you, but the questions are a bit too simple... You have to do that yourself!
Then when it goes wrong, I will help you. Promise.

Example: you are capable of producing a debug screen, but you don't know what it means. First show us sourcecode.
Normally we know what is wrong in the first place. Which in your case is: all of it (sorry) but you will get better...

[yurkad]

All is Ok 

[jmm72]

After this I commented line 165 in application.inc file.

Friendly advice: don't alter source files other than your own. Altering FPC or Lazarus source files might raise other errors that will be harder to detect, specially if we think they're in your source code and not in FPC or Lazarus due to them being modified. If you can make your program work by altering FPC or Lazarus, then either you've hit a bug and it should be reported, or your source code is way wrong 

[yurkad]

 jmm72, thank you by advice.
You are right.
Sample.rar has changed cod. But I tested it before send. Perhaps not so good.
The cod of sample.rar has same problem that source has.
Of course I could be wrong.
In future I will keep in mind this advice.

Sorry but I do not know difference between FPC source files and Lazarus source files.

[yurkad]

I improve the project. Now Halt is working.
The problem was not in using TCombobox as such.
Apparently the problem was in using index of array itemLines out of range or something like that.
Just TCombobox controls  had two last indexes.
By using index of array itemLines out of range Halt is failing.

Lazarus is controlling many things but unfortunately he is not controlling use of indexes of arrays out of range. Even in runtime.
Delphi too.

[yurkad]

Here in attachment is improved variant of project.

List of changes:
All changes was only in file link.pas.

Everywhere name itemLines was replaced by name itemLinkLines.
In additional line was changed in line 220. And after line 221 "begin" was inserted new line.

It is all.

[Thaddy]

Here in attachment is improved variant of project.

List of changes:
All changes was only in file link.pas.

Everywhere name itemLines was replaced by name itemLinkLines.
In additional line was changed in line 220. And after line 221 "begin" was inserted new line.

It is all.

Let me tell you this: programmers count from 0,naught, null 0 if you want.... You count from one.1 if you want... now do it again....

[yurkad]

Let me tell you this: programmers count from 0,naught, null 0 if you want.... You count from one.1 if you want... now do it again....

I did not understand your post and I did not understand the relationship between your post and my post.

In improved version it is used low and high for arrays,