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

Вниз

Как мне поменять кодировку   Найти похожие ветки 

← →
greengeneral ©   (2007-01-11 23:46) [0]

Мне надо поменять кодировку шрифта т.к. при выполнениии:

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;

fName: String[80];
q: string[80];

begin
q:="f:\qwerty.bat";

fName := q;

AssignFile(f, fName);

Rewrite(f);

writeln(f, "start спасибо.doc");

CloseFile(f);

end;

у меня в bat файле вместо слова "спасибо"  какието ероглифы.

Или подскажите какой нибудь другой способ.

---

← →
DevilDevil ©   (2007-01-12 00:30) [1]

function WinToDos(S : string) : string;
var
L : integer;
begin
L := Length(S);
SetLength(Result, L);
if L > 0 then
CharToOem(pchar(S), pchar(Result));
end;

function DosToWin(S : string) : string;
var
L : integer;
begin
L := Length(S);
SetLength(Result, L);
if L > 0 then
OemToChar(pchar(S), pchar(Result));
end;

---

← →
Anatoly Podgoretsky ©   (2007-01-12 01:26) [2]

> greengeneral  (11.01.2007 23:46:00)  [0]

Чем смотришь?
Обычно это меню Шрифт.

---

← →
Германн ©   (2007-01-12 01:53) [3]

> Anatoly Podgoretsky ©   (12.01.07 01:26) [2]
>
> > greengeneral  (11.01.2007 23:46:00)  [0]
>
> Чем смотришь?

Имхо, окном командного процессора :)

---

← →
Anatoly Podgoretsky ©   (2007-01-12 01:54) [4]

> Германн  (12.01.2007 01:53:03)  [3]

Тогда chcp

---

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

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

Наверх

Память: 0.47 MB
Время: 0.048 c