Error: Security raised exception class 'External:SIGSEGV'.

[mundim]

No and yes...

Can't we just focus in how to make things work instead of what did I do wrong? I mean how to code that last line to make it close the program when the checkboxes Lazarus, Pascal, DSOD, RSS and III are checked...

[Martin_fr]

No and yes...

Can't we just focus in how to make things work instead of what did I do wrong? I mean how to code that last line to make it close the program when the checkboxes Lazarus, Pascal, DSOD, RSS and III are checked...

That is what I tried.

You seem to want to run the code

Code: [Select]

  If Lazarus.Checked and Pascal.Checked and DSOD.Checked and RSS.Checked and III.Checked then Exit;

as part of

Code: [Select]

procedure TForm1.LazarusClick(Sender: TObject);

But you do not.

I wrote so

If you followed them, you should have spotted that the last begin is outside of any procedure (behind/after the last procedure.

So the answer is

Move the code into the procedure to make it work
(and then you will not need the added "var")


Your code with added comments

Code: [Select]

  procedure TForm1.LazarusClick(Sender: TObject);
Next line the body of the procedure starts

Code: [Select]

  begin 
     CC.Enabled := False;
    Microsoft. Enabled := False;
    Delphi.Enabled := False ;
Next line the procedure ends

Code: [Select]

  end;
Next begin has nothing to do with the procedure

Code: [Select]

   begin
    If Lazarus.Checked and Pascal.Checked and DSOD.Checked and RSS.Checked and III.Checked then Exit;

end.


[mundim]

Thankk you SOOO much!!

I finally got it, thanks for your patience... I just had to paste "If Lazarus.Checked and Pascal.Checked and DSOD.Checked and RSS.Checked and III.Checked then Close;" in all of the procedures involving the checkboxes that would make the program close with overlap procedures (that begin begin, end, end thing in the same procedure)...

Again thanks for the patience!