Acentos al cargar un Listbox

[ecfisa]

Hola mblascog.

Tal vez estes cargando la propiedad Items desde un archivo de texto con formato UTF8 mediante el método LoadFromFile. Si fuera ese el caso, inténtalo al modo de este ejemplo:

Código Delphi [-]
function UTF8FileToString(const aFileName: string): string;
var
  Stream : TFileStream;
begin
  Stream := TFileStream.Create(aFileName, fmOpenRead);
  try
    SetLength(Result, Stream.Size div SizeOf(Char));
    Stream.ReadBuffer(Result[1], Stream.Size);
    Result := Copy(UTF8ToAnsi(Result), 2, MaxInt));
  finally
    Stream.Free;
  end;
end;

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  ListBox1.Items.LoadFromFile('utf-8_file.txt');
  ListBox2.Items.Text := UTF8FileToString('utf-8_file.txt');
end;

Muestra:


Saludos