optimizar el codigo en menos lineas

[[ElKurgan]]

Hombre, si todos los formularios tienen los mismmos botones y los mismos nombres no es difícil. Te creas una unit que contenga la función a compartir de este modo:

Código Delphi [-]
 
procedure ActualizarBotones(Formulario: TForm; operador: string );
begin
   _DM.consulta1.SQL.Text:='select * From sisterna Where op_sis='''+operador+'''';
   _DM.consulta1.Open;
    Formulario.SpeedButton1.caption:= _DM.consulta1.FieldByName('e10').text +' TARJETAS 10BS';
    Formulario.SpeedButton2.caption:= _DM.consulta1.FieldByName('e20').text +' TARJETAS 20BS';
    Formulario.SpeedButton3.caption:= _DM.consulta1.FieldByName('e30').text +' TARJETAS 30BS';
    Formulario.SpeedButton4.caption:= _DM.consulta1.FieldByName('e50').text +' TARJETAS 50BS';
    Formulario.SpeedButton5.caption:= _DM.consulta1.FieldByName('e100').text +' TARJETAS 100BS';
    Formulario.SpeedButton6.caption:= _DM.consulta1.FieldByName('e100c').text +' CABINAS 100BS';
end;

Y la llamarías, por ejemplo, así:

Código Delphi [-]
 
procedure T_Sisterna.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Formulario: TForm;
begin
  Formulario := TForm(Sender);
  ActualizarBotones(Formulario, operador); // Supongo que "operador" es alguna variable de todos los formularios
end;

Lo escribo de cabeza, no lo he probado, pero debería funcionar (más o menos)

saludos