FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
||||
|
||||
Al igual que aggg63, en Delphi 6 también genera una excepción.
Así que he usado con éxito este código : function BestFit(const AInput: AnsiString): AnsiString; const CodePage = 20127; //20127 = us-ascii var WS: WideString; begin WS := WideString(AInput); SetLength(Result, WideCharToMultiByte(CodePage, 0, PWideChar(WS), Length(WS), nil, 0, nil, nil)); WideCharToMultiByte(CodePage, 0, PWideChar(WS), Length(WS), PAnsiChar(Result), Length(Result), nil, nil); end; http://stackoverflow.com/questions/1891196/convert-hi-ansi-chars-to-ascii-equivalent-e-e-in-delphi2007 Saludos. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|