Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с файлами 
:(
    Опции темы
Sergey89
Дата 25.9.2004, 08:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет
Как через программу на Pascal'е создать папку на диске и записать в неё файл?
--------------------
mlib.com.ru
PM MAIL   Вверх
Berill
Дата 25.9.2004, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.7.2004
Где: Баку, Азербайджан

Репутация: нет
Всего: нет
Код
uses
 Crt;

var
 DirName: string;
 F: Text;
begin
 ClrScr;
 { Создание папки }
 Writeln('Input directory name to create direcory');
 Readln(DirName);
 {$I-}
 MkDir(DirName);
 if IOResult <> 0 then
 begin
   Writeln('Cannot create directory ''', DirName, '''');
   Exit;
 end;
 {$I+}
 Writeln('Directory ''', DirName, ''' created');
 { Создание файла и запись в него строки. }
 Assign(F, DirName + '/proverka.txt');
 Rewrite(F);
 Writeln(F, 'Record string into file.');
 Close(F);
 Writeln('File has been created');
 Readln;
end.


Это сообщение отредактировал(а) Berill - 25.9.2004, 11:42
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0394 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.