Nombre del dia

[[cHackAll]]

Ah, pues creo que nos estamos haciendo demasiado problema... de paso tengo mis dudas con esas funciones en versiones inferiores de d6;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const Dias: array [0..6] of PChar = ('Sábado', 'Domingo', 'Lunes', 'Martes', 'Miercoles', 'Jueves', 'Viernes');
begin
 Caption := Dias[Trunc(Now) mod 7];
end;

Funcionaría hasta en d1 o 2 ???

Saludos