Форум: "Основная";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.008 c