Cambiar TimetoStr y viceversa

[BrunoBsso]

Empezado por gonza_619

hola, bueno para guardar hora en un campo string, la hora de un dtpicker, podria ser algo como:

primero cambio el formato: dtpicker.format:=HH:mm

luego
var x:tdatetime
x:=dtpicker.time;
tablex.fieldbyname('hora'),asstring:=timetostr(x);

estaria en lo correcto?
otra pregunta, si quiero comparar la variable x para ver si es > o < a por ej:05:00
if x<05:00 then hace algo
me lo compara?

Para guardar la hora en un string y mandarla a la BD:

Código Delphi [-]
var
  S: String;
begin
  S := FormatDateTime('HH:mm',dtpicker.Time);
  tablex.fieldbyname('hora'),asstring := S;
  //Mas simple: tablex.fieldbyname('hora'),asstring :=  FormatDateTime('HH:mm',dtpicker.Time);
end;

Para comparar:

Código Delphi [-]
var
  X, Comparacion: TTime;
begin
  X := Now;
  Comparacion := StrToTime('05:00:00');
  if (X < Comparacion) then //Si X es menor a 05:00:00
    ShowMessage(TimeToStr(X) + ' es menor a ' + TimeToStr(Comparacion))
  else if (X > Comparacion) then //O mayor
         ShowMessage(TimeToStr(X) + ' es mayor a ' + TimeToStr(Comparacion))
       else
         ShowMessage('Son iguales');
end;