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