Работа с текстовыми файламиDelphi , Файловая система , ФайлыРабота с текстовыми файлами
Оформил: DeeCo // Create a new text file and write some text into it procedure NewTxt; var f: Textfile; begin AssignFile(f, 'c:\ek.txt'); {Assigns the Filename} ReWrite(f); {Create a new file named ek.txt} Writeln(f, 'You have written text into a .txt file'); Closefile(f); {Closes file F} end; // Open existing text file and append some text procedure OpenTxt; var F: Textfile; begin AssignFile(f, 'c:\ek.txt'); {Assigns the Filename} Append(f); {Opens the file for editing} Writeln(f, 'You have written text into a .txt file'); Closefile(f); {Closes file F} end; // Open existing text file and show first line procedure ReadTxt; var F: Textfile; str: string; begin AssignFile(f, 'c:\ek.txt'); {Assigns the Filename} Reset(f); {Opens the file for reading} Readln(f, str); ShowMessage('1. line of textfile:' + str); Closefile(f); {Closes file F} end; Статья Работа с текстовыми файлами раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |