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

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

Как мне поменять кодировку [D7, WinXP]

greengeneral ©   (2007-01-11 23:46:00) 

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

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 файле вместо слова "спасибо"  какието ероглифы.

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

---

Anatoly Podgoretsky   (2007-01-12 01:54:00) [1]

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

Тогда chcp

---

Германн   (2007-01-12 01:53:00) [2]

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

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

---

Anatoly Podgoretsky   (2007-01-12 01:26:00) [3]

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

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

---

DevilDevil   (2007-01-12 00:30:00) [4]

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;

---

Наверх