Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.036 c
1-29840
Paxer
2003-02-27 18:56
2003.03.10
TDateTimePicker c возможностью ввода пустой даты?


9-29692
Vadim SA
2002-10-09 17:58
2003.03.10
Глюк в DelphiX


3-29748
Карелин Артем
2003-02-19 13:18
2003.03.10
Обработка массивов в базах данных. Дубль 2 :-(


3-29752
exciter_
2003-02-19 15:32
2003.03.10
Как сделать Shadow для базы?


6-29974
Anton
2003-01-21 13:53
2003.03.10
Вложения Email





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский