Форум программистов, компьютерный форум CyberForum.ru

Lazarus

Войти
Регистрация
Восстановить пароль
 
Незнайкая
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 16
#1

Создать файл, состоящий из неопределенного количества значений типа Integer - Lazarus

23.11.2016, 16:59. Просмотров 327. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста составить программу в Delphi или в Lazarus, не могу даже представить с чего начать:
составьте программу, которая создает файл, состоящий из неопределенного количества значений типа Integer. Для ввода используйте цикл, выход из цикла – значение 999. После записи выделите файл на экран и уничтожьте файл. Тип record не используйте.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2016, 16:59     Создать файл, состоящий из неопределенного количества значений типа Integer
Посмотрите здесь:
Lazarus Чем можно прочитать файл записей типа integer
Lazarus Перевод с типа file of integer в integer
Проверка типа boolean, как integer на равность нулю Lazarus
Создать типизированный файл, куда записать n целых чисел. Из файла создать массив, элементы которого являются Lazarus
Создать типизированный файл. Подскажите что не так, все работает, но в файл записываются всякие иероглифы? Lazarus
Lazarus Создать типизированный файл
Создать файл. Lazarus Lazarus
Lazarus Можно ли создать текстовый файл?
Создать lrs файл утилитой lazres Lazarus
Lazarus Создать типизированный файл, куда записать n целых чисел
Создать типизированный файл, куда записать n целых чисел Lazarus
An invalid integer Lazarus

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Незнайкая
0 / 0 / 0
Регистрация: 23.11.2016
Сообщений: 16
23.12.2016, 15:59  [ТС]     Создать файл, состоящий из неопределенного количества значений типа Integer #2
раз никто не пишет

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
unit Unit7;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm7 }
 
  TForm7 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form7: TForm7;
 
implementation
 
{$R *.lfm}
 
{ TForm7 }
   var f:file of integer;
    a,p,i:integer;
   filename:string;
procedure TForm7.Button1Click(Sender: TObject);
begin
 label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
rewrite(f);
closefile(f);
label1.Caption:='Файл создан'
end;
 
procedure TForm7.Button2Click(Sender: TObject);
begin
a:=StrToInt(edit2.text);
If a>998 then ShowMessage('Ведите число до 998')
else begin
label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
{$I-}
reset(f);
{$I+}
memo1.Clear;
if ioresult<>0 then label1.Caption:='Файл нет'
else
begin
seek(f,filesize(f));
for i:=a to 998 do
begin
p:=i;
write(f,p);
end;
closefile(f);
label1.Caption:='Данные в файле'
end;
end;
end;
 
procedure TForm7.Button3Click(Sender: TObject);
begin
label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
{$I-}
reset(f);
{$I+}
memo1.Clear;
if ioresult<>0 then label1.Caption:='Файл не найден'
else
begin
if eof(f) then label1.Caption:='Файл пуст'
else
begin
repeat
read(f,p);
memo1.Lines.Add(floattostr(p));
until eof(f);
label1.Caption:='Файл прочитан'
end;
closefile(f);
end;
end;
 
procedure TForm7.Button4Click(Sender: TObject);
begin
label1.Caption:='';
filename:=edit1.Text;
Assignfile(f,filename);
erase(f);
label1.Caption:='Файл удален'
end;
 
end.
Добавлено через 19 минут
у меня получилось, может кому пригодится)
Yandex
Объявления
23.12.2016, 15:59     Создать файл, состоящий из неопределенного количества значений типа Integer
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru