Datum 30.12.1899

[Kony]

Ahoj, do StatusBaru chci pridat datum a porad mi to načítá špatný datum a to 30.12.1899

Kód: Delphi [Vybrat]

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.  today : TDateTime;
4. begin
5.  
6.  StatusBar1.Panels[0].Text := formatdatetime('dd/mm/yyyy', today);
7.  
8. end;

Čas v PC mám v pořádku

[Kony]

Vyřešeno pomocí

Kód: Delphi [Vybrat]

1. StatusBar1.Panels[0].Text := (FormatDateTime('c', Now))

[raul]

musim sorry. OMG

[Morrison]

Je hezký, že si nadefinuješ proměnnou typu TDateTime, ale dokud ji nenaplníš nějakou hodnotou, nemůžeš očekávat jakoukoliv smysluplnou práci s ní. To, že jsi ji pojmenoval "today" kompilátoru opravdu nestačí, aby pochopil tvůj záměr.
Takže pro příště si proměnnou nejdříve nastav (např. tím Now) a pak s ní pracuj dál.

Kód: Delphi [Vybrat]

1. today := Now;
2.