Конференция "Прочее" » перекодировка DOS Delphi 2009
 
  • zdm © (10.02.09 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 © (10.02.09 09:05) [1]

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

    "Ansi" не набирается в IDE ?
  • Palladin © (10.02.09 09:05) [2]
    ты'б, во первых, глянул, что на входе oemtochar требует...
  • zdm © (10.02.09 09:22) [3]
    Дык в предыдущих версиях все работает, это рабочий код. Как аналогию перевода из DOS кодировки в 2009 -ой сделать?
    Пробую если OemToChar (PansiChar(str),Pchar(str)); компилится но не переводит , т.е. кракозябра как была так и остается... Запутался в конец. Можно просто несколько строк как правильно.
  • Anatoly Podgoretsky © (10.02.09 09:58) [4]
    > 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.
    Нафига нам нужен этот мусор?
  • zdm © (10.02.09 10:04) [5]
    ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!
 
Конференция "Прочее" » перекодировка DOS Delphi 2009
Есть новые Нет новых   [134454   +42][b:0][p:0]