Dar formato a una cadena con vocales tildadas y otros caracteres

[noob]

Hola tengo por ejemplo la cadena 'inválido' y la tratar de mostrarla con un ShowMessage sale invĀilido

He probado con hacer:

Código Delphi [-]
Cadena := AnsiString(Cadena);

pero sigue igual.

Las cadenas las tengo en una unidad a parte así:

Código Delphi [-]
unit uMensajes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils; 

const
  Cadena1 = 'inválido';
  Cadena2 = 'contraseña';

implementation

initialization

end.

¿Cómo puedo arreglarlo?

Saludos.

[Ferrari]

ke tipo de BD tienes y si es SQL dime el metodo de intrecalacion de carácteres...saludos

[roman]

Da la impresión de que el archivo uMensajes.pas tiene una codificación distinta de Latin1 o ANSI. Haciendo unas pruebas con delphi, veo el mismo comportamiento si guardo el archivo como UTF8.

// Saludos

[noob]

Empezado por Ferrari

ke tipo de BD tienes y si es SQL dime el metodo de intrecalacion de carácteres...saludos

No hablo de base de datos, es un string normal.

[noob]

Empezado por roman

Da la impresión de que el archivo uMensajes.pas tiene una codificación distinta de Latin1 o ANSI. Haciendo unas pruebas con delphi, veo el mismo comportamiento si guardo el archivo como UTF8.

// Saludos

Pues sí, era eso, estaba guardado en codificación UTF-8, lo he guardado en codificación ANSI y se ve bien.

Problema resuelto.

Saludos.

[raorre]

Como has cambiado la codificacion del fichero a ANSI, me pasa lo mismo y no se donde estan las propiedades para cambiarlas, trabajo con delplhi 2007.
saludos. pibe

[noob]

Abre el archivo pas con el block de notas, ve a Archivo --> Guardar como... y en Codificación verás en qué lo puedes guardar.

Saludos.

[raorre]

y por delphi no hay ninguna manera de hacerlo tiene q ser por un bloc de notas.??

[roman]

Con el IDE de delphi no sé. Con código delphi puedes usar la función Utf8ToAnsi.

// Saludos