Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 14.09.2018, 00:27   #1
Roman_Jarckov23
Пользователь
 
Регистрация: 11.09.2018
Сообщений: 20
Репутация: 10
Подмигивание Как записывать и считывать данные в файл?

Код:

program data;
var a:integer;
      b: string;
      reg:boolean;
begin
if reg =false then
   begin
    writeln('Введите имя');
    readln(b);
    writeln('Введите возраст');
   readln(a);
   reg :=true;
   end;
end.

Как сделать так, чтобы после регистрации шла запись в файл переменных: a,b,reg,
затем если программу перезапускали, то данные из файла читались и если reg = true, то код шёл дальше. И из файла выводились параметры(a,b) на экран
Roman_Jarckov23 вне форума   Ответить с цитированием
Старый 14.09.2018, 10:26   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,613
Репутация: 5352
По умолчанию

например, в текстовый файл
(ещё примеры можете посмотреть у себя в "С:\Program Files x86)\PascalABC.NET\Samples\!Tutoria l\12_Files") :

Код:

program data;
const regFileName = 'D:\MyReg.dat';
var player_age:integer;
      player_name: string;
      f : Text; {или TextFile если нормальный современный Паскаль: delphi, FPC}
begin
if Not FileExists(regFileName) then
   begin
    writeln('Введите имя');
    readln(player_name);
    writeln('Введите возраст');
    readln(player_age);
    Assign(f,  regFileName);
    Rewrite(f);
    WriteLn(f, player_name);
    WriteLn(f, player_age);
    Close(f); 
   end
   else {файл с настройками существует, читаем из него}
   begin
      Assign(f,  regFileName);
      Reset(f);
      ReadLn(f, player_name);
      ReadLn(f, player_age);
      Close(f); 
   end;

   WriteLn(' Здравствуй, ',player_name);

end.

p.s. ещё для этой цели вместо текстового файла можно использовать INI файлы,
можно использовать записи и типизированные файлы, можно создать бинарный файл своей структуры и писать данные туда.
Есть много вариантов в зависимости от целей и решаемых задач.
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
считывать каждую первую букву в слове и записывать ее в множество СанекКенас Паскаль 6 05.02.2015 11:34
Нужно переделать, чтобы программа могла считывать данные с файла и записывать в него результат. Kroleg Помощь студентам 2 13.11.2011 19:15
Как считывать данные из файла для инициализации (не INI-файл) Smagulov85 Общие вопросы Delphi 6 04.12.2009 10:08
Как записывать и считывать Ini File с набором строк (#10#13) в одном параметре?) SkAndrew Общие вопросы Delphi 4 15.11.2008 01:02


20:50.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru