Ver Mensaje Individual
  #2  
Antiguo 11-09-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Personalmente la segunda función la haría de la siguiente manera:

Código Delphi [-]
procedure AnsiToUnicode(Text, Filename: string);
var
  WStr: WideString;
  F: File;
  Escritos: Integer;
begin
  WStr:= #$FEFF + Text;
  AssignFile(F, Filename);
  {$I-}
    Rewrite(F,Sizeof(WideChar));
  {$I+}
  if IOResult = 0 then
  begin
    BlockWrite(F,PWChar(WStr)^,Length(WStr),Escritos);
    CloseFile(F);
  end;
end;

En cuanto a tu función, ¿cual es exactamente el fallo que te da?
Responder Con Cita