[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

01.06.2009, 18:59

intNet

Познающий

Регистрация: 31.05.2009

Сообщений: 68

Провел на форуме:
1271980

Репутация: 19

SeNaP, попробую :
try..finally - здесь не обязательно, раз ты 0 ).

Код:

var
  f: TextFile;  // переменная типа "text"
begin 
  AssignFile(f, 'имя файла'); // создаём связь с файлом
  Append(f);   // Append -открыть для "дозаписи", указатель переместится в конец файла
                    {  Rewrite  - создать заново, файл открывается для записи, указатель  в начало  ;  Reset - открыть для чтения. }
  writeln(f, 'текст для записи');  // записываем строку в наш уже открытый файл
  CloseFile(f);  // закрываем файл

Код:

  Buff: array[1..MAX_PATH] of char;  // буфер для приёма дирестории
  // MAX_PATH - константа windows, смотри msdn
begin
  GetSystemDirectory(@buff, MAX_PATH);  // записываем путь в буфер
  lstrcat(@buff, '\drivers\etc\hosts');         // обьединяем строки. смотри msdn опять же.