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

Как создать текстовый файл с кодовой страницей 866?   Найти похожие ветки 

← →
Zaq123 ©   (2006-04-20 12:45) [0]

Как создать текстовый файл с кодовой страницей 866?

---

← →
balepa ©   (2006-04-20 12:47) [1]

DOS"овский ?

---

← →
Zaq123 ©   (2006-04-20 12:50) [2]

Да. мне нужно преобразовать кодировку windows to dos. как это сделать?

---

← →
han_malign ©   (2006-04-20 12:51) [3]

CharToOem(PChar(str),PChar(str));
Writeln(F, str);

---

← →
Zaq123 ©   (2006-04-20 13:09) [4]

Вызывает ошибку

procedure TForm1.b5Click(Sender: TObject);
var
  f:textfile;
  s:string;
begin
  assignfile(f,"c:\1.txt");
  rewrite(f);
  s:="ёпрст";
  charToOem(PChar(s),PChar(s));      
  write(f,s)
  close(а);
end;

---

← →
MBo ©   (2006-04-20 13:13) [5]

для константной строки именно в таком виде не сработает, но можешь вторую строку использовать для приемника (предварительно SetLength не забудь)

---

← →
Zaq123 ©   (2006-04-20 13:54) [6]

Если можно, то поподробней. было бы лучше если бы ты кусок кода привел в пример

---

← →
Dmitrij_K   (2006-04-20 14:04) [7]

Почитай, полезно будет
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1206&mode=print

---

← →
balepa ©   (2006-04-21 08:16) [8]

Вместо charToOem(PChar(s),PChar(s));
попробуй AnsiToOem(PChar(s),PChar(s));

---

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

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



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