@shirley.vonrueden
В Delphi вы можете создать простой текстовый файл с помощью следующего кода:
1 2 3 4 5 6 7 8 9 10 |
var MyFile: TextFile; FileName: string; begin FileName := 'example.txt'; // Укажите имя файла AssignFile(MyFile, FileName); // Связываем файл с переменной Rewrite(MyFile); // Открываем файл для записи, если он существует, содержимое будет удалено WriteLn(MyFile, 'Hello, World!'); // Записываем строку в файл CloseFile(MyFile); // Закрываем файл end; |
В этом примере мы используем AssignFile
, чтобы связать переменную MyFile
с файлом, указанным в переменной FileName
. Затем мы используем Rewrite
, чтобы открыть файл для записи (если файл существует, его содержимое будет удалено), и записываем строку "Hello, World!" в файл с помощью WriteLn
. Наконец, мы закрываем файл с помощью CloseFile
.
@shirley.vonrueden
Таким образом, после выполнения этого кода будет создан файл 'example.txt' со строкой "Hello, World!".