Zeit in DateTimePicker von Edit einfügen

[MiniKeks]

Hi Zusammen! Erstmals schöne Ostern euch allen! (Jeehaw! XD)

Nun zu meiner Frage:

Ich habe ein DateTimePicker. Nun wähle ich mit diesem das Aktuelle Datum aus. Dann will ich die Zeit (Die in JvEdit2 eingegeben wird), in den "Datetimepicker.time" laden und dann die Zeit und das Datum einer Datei ändern.

Das mit dem Datum geht problemlos und Super! Doch ich bringe einfach die Zeit nicht in DateTimePicker1.time rein!

Inkompatible Typen String und TTime und alles!

Mein Bisheriger Code:

Delphi-Quellcode:

procedure TForm1.JvgSpeedButton4Click(Sender: TObject);
var
  zeit: string;
begin
zeit := jvedit2.Text;
zeit := datetimepicker1.Time;
SetFileDateTime(jvedit1.Text, datetimepicker1.Datetime);
         ShowMessage('Datum Erfolgreich geändert!');
end;

Irgendwas kleines ist Falsch.. Könnt ihr mir Helfen?


mfg,
MiniKeks

[DGL-luke]

zeit ist ein string, un timepicker.time könnte TDatetime sein. du musst das also zuerst konvertieren. glaube mit formatdatetime oder so... da gibts einige koverterfunktionen in delphi. einfach nach "datetime" suchen.

[Hawkeye219]

Hallo Minikeks,

DGL-Luke vermutet richtig: TDateTimePicker erwartet die Zeit im TDateTime-Format. Die notwendige Umwandlung kannst Du mit der Routine StrToTime aus der Unit SysUtils durchführen:

DateTimePicker1.Time := StrToTime(zeit); Gruß Hawkeye

[ManuMF]

Hallo,


Ich würde es in eine eigene Variable speichern:

Delphi-Quellcode:

var
  DatumZeit: TDateTime;

begin
  DatumZeit := Trunc(DateTimePicker.Date) + Frac(StrToTime(Edit.Text));
  SetFileDateTime(jvedit1.Text, DatumZeit);

Das Trunc / Frac ist wichtig, damit jeweils nur Datum bzw. Zeit genommen werden.

Gruß,
ManuMF

[MiniKeks]

Danke vielmals Funzt Super.

Schöne Ostern noch wünscht euch:

MiniKeks - Go Go Go!