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

← →
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]
>
> Чем смотришь?

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

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

Тогда chcp

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