Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
14-30130
Anatoly Podgoretsky
2003-02-23 16:25
2003.03.10
Именинник 22 февраля


3-29699
Жук
2003-02-18 11:42
2003.03.10
Внешнее объединение и вложенный select


3-29704
Игорь С.
2003-02-18 17:07
2003.03.10
всплывающая подсказка в DBGrid


6-29977
reitor
2003-01-21 12:02
2003.03.10
FTP manager


7-30164
Zelius
2003-01-14 13:33
2003.03.10
Как отлавливать события для IWebBrowser2?