- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
Den v týdnu
 29.11.2009  

Úvod

Vypsání dne v týdnu (pondělí, úterý...) do předepsaného Labelu. Místo tlačítka je vhodné schovat spuštění funkce do některé události.

Prvky

  • Button1 (Caption: Zjisti)
  • Label1 (Caption: Dnes je:)

    Kód

    //Funkce Den
    Function Jmeno_Dne(Datum :TDateTime):String;
    Begin
    Datum:=Date();
    case DayOfWeek(Datum) of
    1 : Result:='Neděle';
    2 : Result:='Pondělí';
    3 : Result:='Úterý';
    4 : Result:='Středa';
    5 : Result:='Čtvrtek';
    6 : Result:='Pátek';
    7 : Result:='Sobota';
    end;
    end;

    //Tlacitko Den
    procedure TForm1.Button1Click(Sender: TObject);
    var
    Result: TDateTime;
    begin
    Label1.Caption:='Dnes je: '+Jmeno_Dne(Result);
    end;

    Varianty

    16-22:
    //Udalost aktivace formu
    procedure TForm1.FormActivate(Sender: TObject);
    var
    Result: TDateTime;
    begin
    Label1.Caption:='Dnes je: '+Jmeno_Dne(Result);
    end;