[[seoane]]

Empezado por ixMike

seoane, la función que hiciste tiene un pequeño fallo

¿que fallo?

Esto:

Código Delphi [-]
  WStr:=' '+Text;
  WStr[1]:=WideChar($FEFF);

Es lo mismo que esto:

Código Delphi [-]
  WStr:= #$FEFF + Text;

No entiendo porque lo haces de la otra manera. Pero de ahí a decir que lo otro es un fallo

EDITO: Parece que en versiones anteriores de delphi (yo usaba el TurboDelphi), la instrucción que pongo yo se le atraganta. Pero todo tiene solución:

Código Delphi [-]
  WStr:= #$FEFF + WideString(Text);