Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.03;
Скачать: CL | DM;

Вниз

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

 
Алексей Петухов   (2003-10-21 13:40) [0]

Здравствуйте, уважаемые Мастера.

Подскажите пожалуйста, как мне записать в текстовый файл русские буквы в DOS кодировке.

Заранее благодарен.


 
Zacho ©   (2003-10-21 13:44) [1]

Точно так же, как и в любой другой. А для преобразования DOS в win1251 и обратно смотри CharToOem, CharToOemBuf, OemToChar, OemToCharBuff


 
Алексей Петухов   (2003-10-22 09:06) [2]

Благодарю. Пойду пробовать.


 
Anatoly Podgoretsky ©   (2003-10-22 09:12) [3]

Zacho © (21.10.03 13:44) [1]
DOS в ANSI, а не в win1251
иначе надо использовать таблицы перекодировки!


 
Алексей Петухов   (2003-10-22 09:23) [4]

Просьба:
Помогите примерчиком, пожалуйста.


 
Zacho ©   (2003-10-22 10:08) [5]


> Anatoly Podgoretsky © (22.10.03 09:12) [3]

Естественно.

> Алексей Петухов (22.10.03 09:23) [4]

А пример есть прямо на этом сайте, в FAQ.
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619604&n=19


 
panov ©   (2003-10-22 11:20) [6]

CharToOem(PChar(s),PChar(s));


 
Алексей Петухов   (2003-10-22 12:07) [7]

Сходил по ссылке.
Вот нужная мне часть из данного примера:
procedure WinToDos;
var
Src, Str:PChar;
begin Src := Memo1.Lines.GetText;
CharToOem(Src, Str);
Memo2.Lines.Text := StrPas(Str);
end;


Но: в строке CharToOem(Src, Str); возникает ошибка Access Violation .
Что делать?


 
Zacho ©   (2003-10-22 12:12) [8]


> Алексей Петухов (22.10.03 12:07) [7]

Выделить память под Str. PChar - это всего лишь указатель на строку.


 
Алексей Петухов   (2003-10-22 12:19) [9]

Спасибо.
Выделил память функцией StrNew.
Str:=StrNew("");
Но ведь память потом освобождать надо, ведь так?
Как тогда это сделать?


 
Zacho ©   (2003-10-22 12:23) [10]


> Алексей Петухов (22.10.03 12:19) [9]
> Но ведь память потом освобождать надо, ведь так?
> Как тогда это сделать?

StrDispose естественно, в хелпе на StrNew даже пример есть :)


 
sniknik ©   (2003-10-22 12:25) [11]

Алексей Петухов (22.10.03 12:19) [9]
используй строку, и делай как
panov © (22.10.03 11:20) [6]
все выделится и освободится автоматом.


 
Алексей Петухов   (2003-10-22 12:25) [12]

Извините.
Я сначала спросил, а потом смотреть пошел.



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

Текущий архив: 2003.11.03;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.031 c
1-8511
LORDIK
2003-10-23 15:40
2003.11.03
Разделить


1-8414
kosha80
2003-10-22 13:00
2003.11.03
Регулярные выражения


7-8680
Tihomirov
2003-08-23 14:48
2003.11.03
Номер CD-диска


14-8657
primus
2003-10-14 11:54
2003.11.03
Есть вопрсец


14-8659
Четатель
2003-10-13 12:59
2003.11.03
Быстро