Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
ВнизКак создать текстовый файл в кодировке 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c