TdateTimePicker a variable

[moviuz]

hola quisiera saber como hacer para recibir en una variable la fecha de un tdatetimepicker
lo que yo entendí he intente implementar fue esto

Código Delphi [-]
var
dorRec.Fecha=String
begin
docRec.fecha:=SeleccionadorDeFecha.DateFormat;

igual intente con esto

Código Delphi [-]
docRec.fecha:=DateToStr(SeleccionadorDeFecha.DateFormat);

y esto lo quiero hacer mandarlo a una base de datos donde tengo un campo llamado fecha de tipo date

[marcoszorrilla]

Código Delphi [-]
Fecha:=DateTimePicker.Date;

Un Saludo.

[moviuz]

si lo realizo como me sugieres me marca este error

incompatible types : 'string' and 'TDate'

[Casimiro Notevi]

Has dicho que lo vas a guardar en un campo date en una base de datos, para ello deberás
usar una variable date y no una string, que es el error que te sale.

Código Delphi [-]
var
  dFecha : TDateTime;
  cFecha : string;
begin
  dFecha := datetimepicker.Date;
  cFecha := datetostr(datetimepicker.Date);
end;

[moviuz]

ahora si lo guardo en una variable, pero al momento de mandar la variable para la inserción no respeta el formato que le había asignado el de yyyy-MM-dd que es como una de las formas que lo recibe mysql

[ecfisa]

Empezado por moviuz

ahora si lo guardo en una variable, pero al momento de mandar la variable para la inserción no respeta el formato que le había asignado el de yyyy-MM-dd que es como una de las formas que lo recibe mysql

Hola.

Basándome en el ejemplo que te puso Casimiro, creo que podrías hacer:

Código Delphi [-]
var
  OldShortDateFormat: string;
  dateS : string;
  dateD : TDateTime;
begin
  // Salvar formato
  OldShortDateFormat:= ShortDateFormat; 
  // Cambiar formato
  ShortDateFormat:= 'yyyy-MM-dd';  
  // Operaciones
  dateD:= DateTimePicker1.Date;
  dateS:= DateToStr(DateTimePicker1.Date);
  //...
  // Restaurar formato
  ShortDateFormat:= OldShortDateFormat;

Saludos.

[moviuz]

El aporte de cada uno de ustedes fue muy agradecido :ecfisa,Casimiro Notevi,marcoszorrilla ya quedo la inserción en la base de datos , realmente me han ahorrado un unos 2 métodos mas ,muchas gracias