Soy supernovato y pongo este código sin resultado ni error. Alguien me podría orientar ?? Aceptaría con gusto especificaciones para Mod y Delete.
Código Delphi
[-]
procedure TForm2.BitBtn2Click(Sender: TObject);
var
estado: Boolean;
begin
estado := False;
if Form2.CheckBox1.State = cbChecked then
begin
estado := True;
end;
Database1.Connected := True;
DataSource1.Enabled := True;
Table1.Active := True;
Table1.Open;
Table1.Insert;
Table1.FieldByName('Titulo').AsString := Form2.Edit1.Text;
Table1.FieldByName('Arancelado').AsBoolean := estado;
Table1.Post;
Table1.Close;
Table1.Active := False;
DataSource1.Enabled := False;
Database1.Connected := False;
end;