ayuda con una comparacion if

[[Al González]]

No sé por qué con el "puente" Label1 no ocurre lo mismo que sin él (habría que ver el código exacto de cómo lo haces sin ese puente ).

Lo que sí veo algo extraño es que tomes todos los elementos concatenados del cuadro combinado, cmbFecha.Items.Text, en lugar de tomar solamente el elemento de la posición I: cmbFecha.Items [i]. ¿Será eso?

Te invito a hacer este experimento:

Código Delphi [-]
ShowMessage (cmbFecha.Items.Text);
ShowMessage (cmbFecha.Items [0]);

Un curioso abrazo.

Al.

[[Caral]]

Hola
1-La comparación se saca de un dato Texto (combobox).
2-La comparación es de un solo dato, osea, no de varios ITEMS del combobox.
3-La hora si es Time no se podrá comparar con un string (tal como lo pretendes hacer).

Código Delphi [-]
var
 i: integer;
 Fecha, Hora : String;
begin
  Fecha:= FormatdateTime('mm/dd/yyyy',(now));
  Hora:= FormatdateTime('hh:nn:ss',(now));
  for i:= 0 to cmbfecha.Items.Count do
begin
  if (cmbFecha.Text = Fecha)
  and  (Hora < '10:18:00') then
  label2.caption:= IntToStr(i);
end;
end;

Saludos

[[Chris]]

Hola!

Antes que todo, que condiciones se deben haber para que "(TimeToStr(Now) < '10:18:00')" devuelva True?.

Con respecto a lo anterior, mi punto es que te fijes que en realidad estás comparando dos cadenas de texto, no dos fechas. Por lo que utilizar el operador < para cadenas de texto es demasiado ambiguo.

Creo que tu código, casi es su totalidad está mal en conceptos, pues estás utilizando cadenas de texto para hacer comparaciones de fechas. Aún que conviertas correctamente las fechas y horas a texto, tienes que tener en cuenta que esto depende de la configuración regional. No puedes esperar que TimeToStr(Now) devuelva siempre '10:18:00', ya que te podría devolver "10:18:10 AM o PM" y muchas otras variaciones. Lo mejor es que siempre trabajes con fechas y horas de forma nativa.

Código Delphi [-]
var
    I: Integer;
    cmbDate: TDate;
begin
    for I := 0 to (cmbFecha.Items.Count - 1) do
    begin
        
        cmbDate := StrToDate(cmbFecha.Items[i]);
        
        if cmbDate = Date then
        begin
            // comparar hora
            if (CompareDate(Now, EncodeTime(10, 18, 0, 0)) = LessThanValue) then
                Label2.Caption := IntToStr(I);
        end
        else
            ...
        
    end;
end;

Talvez ese código te sirva. Pruebalo, que no estoy seguro que te sirva al 100%.

Saludos!