Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с файлами

Автор: Sergey89 25.9.2004, 08:36

Как через программу на Pascal'е создать папку на диске и записать в неё файл?

Автор: Berill 25.9.2004, 11:40

Код

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.