Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 3 of 3 total
Thread TRadioButton problem?
Sat, May 18 2013 11:37 AMPermanent Link

Paul Waegemans

IMS bvba

Avatar

Hereby the code I use to let someone sign up in the system
It works fine till the moment I inserted the following piece of code:
         
         if RdBtnMan.checked=true then columns['geslacht'].AsString:='M';
         if RdBtnVrouw.checked=true then columns['geslacht'].AsString:='V';
These 2 radiobuttons have GroupIndex 2 property          

         if RdBtnNL.checked=true then columns['taal'].AsInteger:=1;
         if RdBtnFR.checked=true then columns['taal'].AsInteger:=2;
         if RdBtnEN.checked=true then columns['taal'].AsInteger:=3;
These 3 radiobuttons have GroupIndex 1 property

The error I get is hereby enclosed.
What could be the problem.
When I remove those lines the problem is solved.

Thanks
Paul.




Database.StartTransaction;
  try
  with nieuwecontacten1 do
     begin
     open;
     nieuwecontacten1.Insert;
     Columns['Naam'].AsString:=TRIM(EdtNaam.text);
     Columns['Voornaam'].AsString:=TRIM(EdtVoornaam.text);             
     Columns['Volnaam'].AsString:=TRIM(EdtNaam.text)+' '+
                                  TRIM(EdtVoornaam.text);
     V_LoginNaam:=TRIM(EdtNaam.text)+' '+
                  TRIM(EdtVoornaam.text);
     EdtLoginNaam.text:=V_LoginNaam;

     Columns['geslacht'].asstring:=V_geslacht;
     Columns['taal'].asinteger:=V_taalcode;

     Columns['Geboortedatum'].Asdate:=StrToDate(EdtGeboortedatum.text);
     Columns['Straat'].AsString:=TRIM(EdtAdres.text);
     Columns['Postcode'].AsString:=TRIM(EdtPostcode.text);
     Columns['Plaats'].AsString:=TRIM(EdtPlaats.text);
     Columns['Telefoon'].AsString:=TRIM(EdtTelefoon.text);
     Columns['gsm'].AsString:=TRIM(Edtgsm.text);
     Columns['email'].AsString:=TRIM(EdtEmail.text);
     Columns['paswoord'].AsString:=TRIM(Edt_Paswoord.text);
     Columns['zoekveld'].Asstring:=V_LoginNaam+'/'+
                                   DateToStr(date)+'/'+
                                   TimeToStr(Time)+'/'+IntToStr(MSecondOf(Time));

     if RdBtnMan.checked=true then columns['geslacht'].AsString:='M';
     if RdBtnVrouw.checked=true then columns['geslacht'].AsString:='V';
     if RdBtnNL.checked=true then columns['taal'].AsInteger:=1;
     if RdBtnFR.checked=true then columns['taal'].AsInteger:=2;
     if RdBtnEN.checked=true then columns['taal'].AsInteger:=3;

     EdtLoginPaswoord.text:=TRIM(Edt_Paswoord.text);
     Save;
     end;
  Database.Commit;
  except
  Database.Rollback;
  raise;
  end;



Attachments: error_.jpg
Sat, May 18 2013 12:16 PMPermanent Link

Matthew Jones

My newsreader can't read the image, but I can say that I have found the F12
facilities of Chrome to be exceptionally good at helping to debug the
output. Hit F12, and if there is a little red 'x', click it. It shows the
error location, and you can work out what is happening from there. You can
set breakpoints, step in/over calls, and all the usual facilities. While I
don't know javascript I can usually work out the relationship to my EWB
code.

I hope that helps a little.

Matthew
Mon, May 20 2013 2:39 PMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

Paul,

<< Hereby the code I use to let someone sign up in the system.   It works
fine till the moment I inserted the following piece of code:  >>

Please run the application after turning off the compression for the project
and re-compiling, and then post the error message.  The current error
message is not very informative with compression turned on.

Also, if you can send me a project that reproduces the problem, that would
be best.

Thanks,

Tim Young
Elevate Software
www.elevatesoft.com
Image