Hallo Freunde,
ich habe ein Problem mit der
Unit DateUtils.
Ich bin gerade dabei einen Wecker zu basteln, und versuche einen Eintrag in einer ListView zu erstellen, alles klappt auch bis jetzt, leider klappt mein SubItem der Listview mit der Caption "Verbleibende Zeit"
nicht. Hier erstmal ein wenig Code:
Delphi-Quellcode:
procedure TForm1.AddEintrag;
var LI: TListItem;
var Datejetzt: TTime;
var Datelist: TTime;
var resthours: Integer;
var restminutes: Integer;
var restseconds: Integer;
begin
Datejetzt:=Time;
Datelist:=StrToTime(Edit1.Text);
resthours:= HoursBetween(datejetzt,datelist);
restminutes:= MinutesBetween(datejetzt, datelist);
restseconds:= SecondsBetween(datejetzt, datelist);
LI := ListView1.Items.Insert(0);
LI.Caption := RichEdit2.Text;
LI.SubItems.Add(RichEdit1.Text);
LI.SubItems.Add(Edit1.Text);
LI.SubItems.Add(DateToSTr(DateTimePicker1.Time));
LI.SubItems.Add(inttostr(resthours)+':'+inttostr(restminutes)+':'+inttostr(restseconds));
end;
Bloß irgendwie zeigt er mir die verücktesten Uhrzeiten an
Grüße Philipp
[Edit]Bsp:
Jetzige Uhrzeit 22:51:30
Restzeit(was angezeigt wird): 22:1371:82280