Buscar por:

Dica de como colocar dia da semana no delphi

Código

Coloque um button(stdctrls) no form1 e depois programe ele assim:

procedure TForm1.Button1Click(Sender: TObject);

 var

  diaSemana: array[1..7] of string;

  numDia: integer;

begin

  diaSemana[1] := 'Domingo';

  diaSemana[2] := 'Segunda-Feira';

  diaSemana[3] := 'Terça-Feira';

  diaSemana[4] := 'Quarta-Feira';

  diaSemana[5] := 'Quinta-Feira';

  diaSemana[6] := 'Sexta-Feira';

  diaSemana[7] := 'Sábado';

  numDia := DayOfWeek(date);

  MessageDlg('Hoje é ' + chr(13) + diaSemana [numDia], mtInformation, [mbOk], 0);

    end;