скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Работа с текстовыми файлами



Оформил: 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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook