Lazarus – паскаль способ для файла 2

 

Продолжаем учиться турбо Паскаль, Лазарус программированию. Я и сам учусь. Развиваюсь. Довольно неспеша. Изучаю темы. Практикуюсь. Ох, уж это такое продолжительное дело. Надо делать и перерыв. И постоянно возвращаться в мир Турбо. Турбо Паскаль, делфи, лазарус, Фри Паскаль.

Теперь, вот дополнительные возможности. Самое главное – это чтение и запись. Там все основное. А тут дополнительное занятие. Это например – как дописать в файл. Как удалить файл. И как переименовать файл. Паскаль и Лазарус могут и такое!

Дописывание в файл

Вот файл уже существует. И просто добавить туда строчки. Мы с текстовым файлом.  Это похоже на запись в файл. И по сути тот же самый код. Кроме – режима работы с файлом. Когда мы записывали в файл. Режим файла назывался – ReWrite. А теперь мы дописываем в файл. И этот режим называется Append. Мы просто добавим в уже существующий файл новый строчки.

В разделе программы – где объявление переменных – секция var у нас есть текстовый файл. Тип данных текстовый файл. С ним мы работает.

var

 MyTextFile:TextFile;

 MyString:String;

Все также связываем переменную типа текстовый файл (MyTextFile)  c самим файлом (просто имя и путь к файлу)

AssignFile(MyTextFile,'Example.Txt');

И конечно -не забываем. Раз открыл файл. Связал переменную и файл. Теперь закрой файл в самом конце. Можно сразу написать.

CloseFile(MytextFile);

Задаем режим работы с файлом. Это новое. Но похожее на чтение файла. Только режим другой.

Append(MyTextFile);

И теперь – последнее дело. Самое простое. Просто пишем в файл строчки. При помощи команды WriteLn. И только тут первый параметр – переменная типа текстовый файл. Мы как бы пишем  в файл. И второй параметр -сама строка, которую хотим записать.

WriteLn(MyTextFile,'Я дописываю в файл строчку 1');

WriteLn(MyTextFile,'I add to file string 2');

И так пишемся в файл – сколько хотим. В файле появятся новые строчки. Пишемся в конец файла.

Переименовать файл

Можно и файл переименовать прямо в среде программирования. Это очень просто делается. При помощи команды RenameFile. Переименовываем из такого имени в такое то новое имя. Тут уже не надо делать AssignFile, CloseFile. Просто команда сама по себе. Просто напиши это. Только файл надо чтобы такой существовал.

Например,

RenameFile('Example2.txt','NewExample2Name.txt');

Удаление файла

Аналогичным образом. Файл можно и удалить. Простая команда DeleteFile. В качестве параметра пишем путь к файлу. Очень просто.  И прямо из среды разработки все сработаетт.

Например,

DeleteFile('Example3.txt');

Вот такие вот способы есть для работы с файлом. Для всех фанатов Турбо! Турбо паскаль, делфи, лазарус, Фри Паскаль.

Код программы:

var

 MyTextFile:TextFile;

 MyString:String;

begin

 //3 дописывание в файл

 AssignFile(MyTextFile,'Example.txt');

 Append(MyTextFile);

 WriteLn(MyTextFile,'Я дописываю в файл строчку 1');

 WriteLn(MyTextFile,'Adding to a file new string 2!');

 CloseFile(MytextFile);

 

 //4 переименовать файл

 AssignFile(MyTextFile,'Example2.txt');

 ReWrite(MyTextFile);

 WriteLn(MyTextFile,'Something is here!');

 CloseFile(MyTextFile);

 RenameFile('Example2.txt','NewExample2Name.txt');

 

 //5 Удалить файл

 AssignFile(MyTextFile,'Example3.txt');

 ReWrite(MyTextFile);

 WriteLn(MyTextFile,'dlkdffsjdlkfsjdlfksdfsdf');

 CloseFile(MyTextFile);

 DeleteFile('Example3.txt');

End.

Дима Линк делает ретро видеоигры, приложения, немного музыку, пишет истории, и еще некоторое ретро.

ВЕБСАЙТ: http://www.dimalink.tv-games.ru/home_rus.html

БЛОГЕР: https://dimalinkrus.blogspot.com/

МАСТОДОН: https://mastodon.social/@DimaLinkRus