Buen día.
Además de lo ya dicho por ecfisa, añadiría que tu código puede mejorar de varias maneras. Por ejemplo, mirá este código equivalente (pero más compacto):
Código Delphi
[-]...
var
Año: Word;
Mes: string;
const
NombreMes: array[1..12] of string = ('ENERO', 'FEBRERO', 'MARZO', 'ABRIL', 'MAYO'
, 'JUNIO', 'JULIO', 'AGOSTO', 'SEPTIEMBRE', 'OCTUBRE', 'NOVIEMBRE', 'DICIEMBRE');
begin
Mes := NombreMes[Meses.ItemIndex];
Año := Anio.ItemIndex + 2010;
if not DM.Q_agen_tur.Locate('MES; ANIO', VarArrayOf([Mes, Año]), []) then
...
Un saludo.
Cita:
Empezado por Vales08
Disculpa por meterme aca y no abrir un hilo nuevo, pero ya que estaba este problema planteado y al codigo lo saque de este hilo, me gustaria consultar una duda y un problema que tengo con tal codigo..
|
Con respecto de esto, en este caso particular yo no veo problema en que no se abra un hilo nuevo, de hecho, creo que es mejor hacer tu consulta aquí para estar en contexto de lo ya dicho antes.
Un saludo.