Cambio del valor S N en un RadioButton

[emailx45]

TEST IS WORKS FOR YOU!...

prueba para ver si te funciona https :// i.ibb.co / Kp5dXDGT / bds-Zz1g8-Sz-Gzh . gif

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  FireDAC.Stan.Intf,
  FireDAC.Stan.Option,
  FireDAC.Stan.Param,
  FireDAC.Stan.Error,
  FireDAC.DatS,
  FireDAC.Phys.Intf,
  FireDAC.DApt.Intf,
  Data.DB,
  Vcl.StdCtrls,
  Vcl.DBCtrls,
  Vcl.Grids,
  Vcl.DBGrids,
  FireDAC.Comp.DataSet,
  FireDAC.Comp.Client,
  Vcl.ExtCtrls,
  Vcl.Buttons,
  Vcl.Menus;

type
  TForm1 = class( TForm )
    FDMemTable1: TFDMemTable;
    DBGrid1: TDBGrid;
    FDMemTable1MyDBCheckField: TBooleanField;
    DBCheckBox1: TDBCheckBox;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    PopupMenu1: TPopupMenu;
    SI1: TMenuItem;
    No1: TMenuItem;
    procedure DBCheckBox1Click( Sender: TObject );
    procedure SI1Click( Sender: TObject );
    procedure No1Click( Sender: TObject );
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  LChecked: boolean;

procedure TForm1.DBCheckBox1Click( Sender: TObject );
begin
  LChecked := DBCheckBox1.Checked;
  //
  PopupMenu1.Popup( Mouse.CursorPos.x, Mouse.CursorPos.Y );
end;

procedure TForm1.No1Click( Sender: TObject );
begin
  DBCheckBox1.Checked := LChecked;
  DBGrid1.DataSource.DataSet.Cancel;
end;

procedure TForm1.SI1Click( Sender: TObject );
begin
  if ( DBGrid1.DataSource.DataSet.State in [ dsEdit, dsInsert ] ) then
    DBGrid1.DataSource.DataSet.Post;
end;

end.

[emailx45]

FMX ---> Gif sample: https :// i.ibb.co / 5h3SKYqd / bds-SBj-Pf0-P5-Rn . gif

Código Delphi [-]
type
  TForm1 = class( TForm )
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    procedure RadioButton1MouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single );
    procedure MenuItem1Click( Sender: TObject );
    procedure MenuItem2Click( Sender: TObject );
  private
...

procedure TForm1.MenuItem1Click( Sender: TObject );
begin
  RadioButton1.IsChecked := true;
  ShowMessage( 'Si' )
end;

procedure TForm1.MenuItem2Click( Sender: TObject );
begin
  RadioButton1.IsChecked := false;
  ShowMessage( 'No' )
end;

procedure TForm1.RadioButton1MouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single );
begin
  PopupMenu1.Popup( Screen.MousePos.X, Screen.MousePos.Y );
end;

[emailx45]

En lugar de usar el método clásico de escanear todos los registros de una tabla con un "WHILE/REPEAT...", utilice una sentencia SQL más eficiente y rápida.

SQL Text => IBQuery, FDQuery, TQuery, UniQuery, etc.. etc.. etc...

' UPDATE <<TABLE>> '
' SET <<Field1 = ValueABC, <<Field2= ValueABC, etc... etc... >>'
' WHERE <<FieldX = XXXXX .... etc. ... etc... >>>

example:

Código Delphi [-]
  try
    try
      if not FDConnection1.InTransaction then
        FDConnection1.StartTransaction;
        //
      FDQuery1.ExecSQL( 'INSERT / DELETE / UPDATE  .......' );
    except
      on E:Exception do
        ShowMessage(E.Message);
    end;
  finally
    if FDConnection1.InTransaction then
      FDConnection1.Commit;
  end;

UPDATE MyTable
SET Name="John", Age=18
Where ((FieldA ='CATALANA') or (FieldA ='NACIONAL')) and (FieldB ='S')