перекодировка DOS Delphi 2009

← →
zdm © (2009-02-10 09:01) [0]

Имеется текстовый файл в DOS кодировке, в предыдущих версиях Delphi делал так.
var
T:TextFile;
Str,Dest:String;
begin
...
Readln(t,str);
SetLength(dest,Length(str));
OEMTOCHAR(pchar(str),pchar(dest));

В Delphi2009 пробовал строковые переменные как AnsiString не получается. Подскажите как сделать. Спасибо.

← →
Palladin © (2009-02-10 09:05) [1]

> В Delphi2009 пробовал строковые переменные как AnsiString
> не получается.

"Ansi" не набирается в IDE ?

← →
Palladin © (2009-02-10 09:05) [2]

ты"б, во первых, глянул, что на входе oemtochar требует...

← →
zdm © (2009-02-10 09:22) [3]

Дык в предыдущих версиях все работает, это рабочий код. Как аналогию перевода из DOS кодировки в 2009 -ой сделать?
Пробую если OemToChar (PansiChar(str),Pchar(str)); компилится но не переводит , т.е. кракозябра как была так и остается... Запутался в конец. Можно просто несколько строк как правильно.

> zdm (10.02.2009 9:01:00) [0]

The OemToChar function translates a string from the OEM-defined character set into either an ANSI or a wide-character string.

str должна быть AnsiString
dest должна быть WideString

То что ты пробовал в Д2009 никак не подтверждено никаким кодом, зато зачем то приведен код из других версий, а вопрос то про 2009.
Нафига нам нужен этот мусор?

ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!

перекодировка DOS Delphi 2009 Найти похожие ветки