Strange! Application crashes by using DBCheckBox
lazarus / 16-Databases

----------------------------------------------------------------------
MoellerCLaus · 2021-01-02 10:29

I do use SQLite as database and have a "boolean" field defined as
VARCHAR(1).
In dbCheckbox I therefore set ValueChecked to 1 and Valueunchecked =
0.

I want to have fields in a form saved automatically (To avoid a
Tdbnavigator) so I vent for
using the
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
//**********************************************************// Dataset
loeb change//*********************************************************
*procedure TStaevneLoebForm.DataFraLoebDataChange(Sender: TObject;
Field: TField  );begin  If DataFraLoeb.DataSet.Modified Then   
DataFraLoeb.DataSet.Post;end; 
For other types of fields on the form it works fine. DBCheck is called
again and again until crash
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TDBCheckBox.UpdateData(Sender: TObject);var  NewFieldText:
string;begin  if State = cbGrayed then    FDataLink.Field.Clear  else 
  if FDataLink.Field.DataType = ftBoolean then     
FDataLink.Field.AsBoolean:=Checked    else begin      if Checked then 
      NewFieldText:=FValueChecked      else       
NewFieldText:=FValueUnchecked;      // ToDo: use Field.Text     
FDataLink.Field.AsString:=Trim(NewFieldText);    end;end; 
  Anybody have a hint?