Недавно добавленные исходники

•  3D Designer  863

•  Sik Screen Capture  595

•  Patch Maker  541

•  Айболит (remote control)  655

•  ListBox Drag & Drop  488

•  Доска для игры Реверси  8 874

•  Графические эффекты  584

•  Рисование по маске  462

•  Перетаскивание изображений  509

•  Canvas Drawing  509

•  Рисование Луны  390

•  Поворот изображения  269

•  Рисование стержней  331

•  Paint on Shape  197

•  Генератор кроссвордов  255

•  Головоломка Paletto  231

•  Теорема Монжа об окружностях  276

•  Пазл Numbrix  188

•  Заборы и коммивояжеры  311

•  Игра HIP  211

•  Игра Go (Го)  150

•  Симулятор лифта  187

•  Программа укладки плитки  170

•  Генератор лабиринта  214

•  Проверка числового ввода  197

•  HEX View  238

•  Физический маятник  204

•  Задача коммивояжера  235

•  Автомобильная пробка  160

•  Квадратные сетки из слов  131

 
скрыть


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

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



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



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




Похожие по теме исходники

Nstruct (работа с DBF)

Работа с принтером

fwZIP - Работа с ZIP архивами




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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