Foros Club Delphi - problemas de acentos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - problemas de acentos (https://www.clubdelphi.com/foros/showthread.php?t=7115)

ebeltete

04-02-2004 15:48:03

problemas de acentos

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

04-02-2004 16:10:12

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

04-02-2004 16:58:50

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

Código:

  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.

La franja horaria es GMT +2. Ahora son las 10:28:43.