problemas de acentos

[ebeltete]

como puedo mostrar el texto "miércoles" de la siguiente manera "miercoles", necesito eliminar los acentos en los días, haciendo formatdatetime('dddd',now) me aparecen los dias con acentos y tengo algunos problemas para lo que quiero hacer, gracias.
Salu2

[acrophet]

Hombre, yo no se si habrá algo específico para hacer lo que tu quieres; pero te puedes montar una funcioncita que busque vocales acentuadas y las cambie por sus respectivas sin acento.
No se si será algo muy de "alta programación" pero para salir del paso puede resultar.

[marcoszorrilla]

Programación a nivel del mar. Aquí tienes un ejemplo muy simple:


Function Dias(dFecha:TDateTime):String;
var
Adias:Array[1..7] of String;
begin
Adias[1]:='Domingo';
Adias[2]:='Lunes';
Adias[3]:='Martes';
Adias[4]:='Miercoles';
Adias[5]:='Jueves';
Adias[6]:='Viernes';
Adias[7]:='Sabado';

Result:=Adias[DayOfWeek(dfecha)];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Dias(now));
end;


Un Saludo.