| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

кодировка DOS

Konus ©   (2007-04-28 13:44:00) 

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

вообще задача такая: есть программа, в ней поля, которые заполняются и созраняются в текстовый файл, но только теперь файл должен быть в дос-кодировке

как это возможно?

---

Anatoly Podgoretsky   (2007-05-07 22:18:00) [1]

> Konus  (07.05.2007 07:35:08)  [8]

В справке два параметра и оба переменные.

---

Konus   (2007-05-07 07:53:00) [2]

большое спасибо, очень помогли

---

PZ   (2007-05-07 07:46:00) [3]

Function StrToOem(const AnsiStr: string): string;
begin
 SetLength(Result, Length(AnsiStr));
 if Length(Result) > 0 then
{$IFDEF WIN32}
   CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
{$ELSE}
   AnsiToOemBuff(@AnsiStr[1], @Result[1], Length(Result));
{$ENDIF}
end;

Function OemToAnsiStr(const OemStr: string): string;
begin
 SetLength(Result, Length(OemStr));
 if Length(Result) > 0 then
{$IFDEF WIN32}
   OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
{$ELSE}
   OemToAnsiBuff(@OemStr[1], @Result[1], Length(Result));
{$ENDIF}
end;

---

Konus   (2007-05-07 07:35:00) [4]

m1.lines.strings[i]:=CharToOEM(pchar(m1.lines.strings[i]));
не достаточно параметров

---

Konus   (2007-05-07 07:17:00) [5]

елки палки, а как ее вызвать-то? :)
строчку кода приведите в пример, пожалуйста

---

{RASkov}   (2007-05-07 07:05:00) [6]

> подскажите, пожалуйста, есть ли эта процедура в D5?

Если вопрос про CharToOEM, то эта функция не в Delphi.., а в user32.dll.

---

Konus   (2007-05-07 06:32:00) [7]

подскажите, пожалуйста, есть ли эта процедура в D5?
если нет, как можно реализовать в D5?

---

Leonid Troyanovsky   (2007-04-29 21:37:00) [8]

> Konus   (28.04.07 14:00) [3]

> спасибо, буду пробовать

А чего его пробывать?
Сало - оно и есть сало.

--
Regards, LVT.

---

Konus   (2007-04-28 14:00:00) [9]

спасибо, буду пробовать

---

Konus   (2007-04-28 13:45:00) [10]

если это важно, то работаю в delphi5

---

Сергей М.   (2007-04-28 13:45:00) [11]

> каким образом можно переводить символы в эту кодировку?


CharToOEM()

---

Наверх