Вниз
Скачать: CL | DM;

перекодировка 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)); компилится но не переводит , т.е. кракозябра как была так и остается... Запутался в конец. Можно просто несколько строк как правильно.


 
Anatoly Podgoretsky ©   (2009-02-10 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 ©   (2009-02-10 10:04) [5]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c
15-1234508153
Andryk
2009-02-13 09:55
2009.04.12
Складской учет


6-1202161712
NikB
2008-02-05 00:48
2009.04.12
Пример временного стоп-а TIdPeerThread в TIdHTTPServer


15-1234352958
Правильный$Вася
2009-02-11 14:49
2009.04.12
как перенастроить APPDATA на другой диск?


15-1234515144
Юрий Зотов
2009-02-13 11:52
2009.04.12
Черная пятница


15-1234643283
Думкан
2009-02-14 23:28
2009.04.12
Как переименовать фрейм TFrame2 = class(TFrame) ?




   Наверх