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

Вниз

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

← →
Шурик Ш ©   (2003-02-27 16:47) [0]

Subj

---

← →
Шурик Ш ©   (2003-02-27 17:03) [1]

Я что-то неправильно сказал?

---

← →
Smithson ©   (2003-02-27 17:10) [2]

AssignFile
Rewrite
WriteLn
CloseFile

---

← →
Roma ©   (2003-02-27 17:12) [3]

AssignFile
Rewrite
CharToOemBuff
CloseFile

---

← →
Шурик Ш ©   (2003-02-27 17:47) [4]

Не понимаю! А можно пример?

---

← →
Roma ©   (2003-02-27 18:06) [5]

procedure TForm1.Button1Click(Sender: TObject);
function StrToOem(const S: string): string;
begin
SetLength(Result, Length(S));
CharToOemBuff(PChar(S), PChar(Result), Length(Result));
end; // function StrToOem(const S: string): string;
var
F: System.Text;
begin
AssignFile(F, "dos.txt");
Rewrite(F);
WriteLn(F, StrToOem("Съешь еще этих вкусных французских"));
WriteLn(F, StrToOem("булочек да выпей чаю."));
CloseFile(F);
end; // procedure TForm1.Button1Click(Sender: TObject);

---

← →
Шурик Ш ©   (2003-02-27 18:13) [6]

Спасибо!

---

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

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

Наверх

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