Ver Mensaje Individual
  #2  
Antiguo 19-11-2010
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Hola Paulao, no puedes comparar directamente tu String con tu array, tienes que hacer una busqueda en tu array:

Código Delphi [-]
  dferiado: Array[0..7] of String;
begin
  Result := False;
  dferiado[0] := '01/01';
  dferiado[1] := '21/04';
  dferiado[2] := '19/11';
  dferiado[3] := '07/09';
  dferiado[4] := '12/10';
  dferiado[5] := '02/11';
  dferiado[6] := '15/11';
  dferiado[7] := '25/12';
  DecodeDate(Data,ano,mes,dia);
  diames := IntToStr(dia) + '/' + IntToStr(mes);
  for i:=0 to High(dferiado) do
   if diames = dferiado[i] then 
    begin
     Result := True;
     exit;
    end;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita