Optimizar con Case XXX of
Hola a tod@s.
Sé que la pregunta es un poco chorra pero si uno no sabe pues duplica código por un tubo.
Tengo una serie de sentencias "If/then" y quiero agruparlas todas en un "Case/of".
El código sería algo así:
With FormVentas do begin
if ActiveControl =DBEdit1 then
"Lo que sea";
if ActiveControl =DBEdit2 then
"Lo que sea";
.
.
.
.
end;
¿Como sería con un "Case/Of"?, porque son unas 10 sentencias "If/then" y aunque funciona bien se optimizaría con un "Case/Of".
Saludossssssssssssss.
__________________
Saludos a tod@s y no os olvideis de ser felices.
|