Delphi - sacar el dia de hoy en letras

Hola compañeros programadores, tengo una duda y espero que me respondan pronto como siempre lo han hecho.....

nececito substraer el dia de la semana de un datetime picker pero quero que salga en letra (como lunes, martes etc... y no se como hacerle
disculpen mi ignorancia pero es que soy nuevo utilizando el delphi ...

espero que ayuden a este pobre tipo desesperado....( a punto de saltar por la borda)......

adios y estare pendiente:

atte
nick2004... pd. helppppppppppp meeeeeeee¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡.-...

¡Espera, no saltes todavía! A ver si este código te puede ayudar:
var
Form1: TForm1;
DiasSemana: Array [1..7] of String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
DiasSemana[1]:='Domingo';
DiasSemana[2]:='Lunes';
DiasSemana[3]:='Martes';
DiasSemana[4]:='Miércoles';
DiasSemana[5]:='Jueves';
DiasSemana[6]:='Viernes';
DiasSemana[7]:='Sábado';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Dia: Byte;
begin
Dia:=DayOfWeek(DateTimePicker1.Date);
Edit1.Text:=DiasSemana[Dia];
end;

end.

Al pulsar el Button1 pinto en el Edit1 el día de la semana. Espero que sea lo que buscabas.

También hay una función, si no me equivoco, que se llama FormatDate o DateFormat que puede servir...

Mira esto me funciona de pelicula... ademas para otras configuraciones del tipo de dia que quieres velo en la ayuda del FormatDate.. ahi va:

Label1.Text:=UpperCase(FormatDateTime('d'' de ''mmmm'' del ''yyyy',Date));

Todo es en una sola linea, por las dudas...

YA LO PROBE Y SI ME FUNCIONO..... NO CABE DUDA QUE SON BUENOS EN LO QUE HACEN. MUCHAS GRACIAS POR TODO.

HAAA Y POR CIERTO HAN SALVADO A UN HOMBRE EN APRIETOS...
LES DEBO UNA.

PD. GRACIAS POR EVITAR QUE SALTARA POR LA BORDA JEJE...

NOS VEMOS LUEGO

ATTE NICK 2004

no funciona a como tu dices pero xq encontre error, ya q no devuelve informacion pero asignando en el arreglo diassemana ahi si te lo reconoce espero te sirva la condicion que modifique

var
Form1: TForm1;
DiasSemana: Array [1..7] of String=('Domingo','Lunes','Martes',
'Miercoles','Jueves','Viernes','Sabado');

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var dia:Integer;
begin
Dia:=DayOfWeek(DateTimePicker1.Date);
Edit1.Text:=DiasSemana[Dia];
end;

espero te sirva lo que realmente necesitas

Hola:

En el idioma de tu windows:

Label1.Caption := FormatDateTime('dddd',DateTimePicker1.Date);

Suerte. Virum.

Aquí tienes un Procedimiento que hace lo que quieres, pero debes incluir en el uses la unidad DateUtils.

procedure TForm1.dxButton1Click(Sender: TObject);
Var
Mes, Dia : String;
M, D, A, Day : Word;
begin
DecodeDate(DateTimePicker1.Date,A,M,D);
Day := DayOfTheWeek(DateTimePicker1.Date);
Case M of
01 : Mes := 'ENERO';
02 : Mes := 'FEBRERO';
03 : Mes := 'MARZO';
04 : Mes := 'ABRIL';
05 : Mes := 'MAYO';
06 : Mes := 'JUNIO';
07 : Mes := 'JULIO';
08 : Mes := 'AGOSTO';
09 : Mes := 'SEPTIEMBRE';
10 : Mes := 'OCTUBRE';
11 : Mes := 'NOVIEMBRE';
12 : Mes := 'DICIEMBRE';
end; //Case
Case Day of
01 : Dia := 'LUNES';
02 : Dia := 'MARTES';
03 : Dia := 'MIERCOLES';
04 : Dia := 'JUEVES';
05 : Dia := 'VIERNES';
06 : Dia := 'SABADO';
07 : Dia := 'DOMINGO';
end; //case
Label1.Caption := 'Hoy es ' + Dia +' ' + IntToStr(D) + ' de ' + Mes + ' del año ' + IntToStr(A);

ESTA FUNCION SI QUE ESTA COMPLETA....... ; )

MUCHAS GRACIAS HELENA Y A TODOS POR SU AYUDA.
SIGAN ASI CON ESAS GANAS DE AYUDAR A GENTE COMO YO QUE AUN SABE POCO.

NOS VEMOS LUEGO

ATTE
NICK 2004

ATTE

Hora icluida, con un Timer, en su único evento, en una línea:

Label1.Caption := 'Son las '+FormatDateTime('h:mm "horas, del ',Now)+FormatDateTime('dddd "día ',Now)+FormatDateTime('d "de "mmmm "de "yyyy',Now);

Suerte.