Создать и сохранить файл с записями

@solodinka2007 · Регистрация: 16.10.2012

Студворк — интернет-сервис помощи студентам

Никак не могу создать файл с записями. Хотела все вместить в одну кнопку Button1, но ничего не вышло. Если кому не трудно, обьясните как создать процедуру которая создает файл при открытии формы и после нажатия на кнопку записывает введенные данные.

Delphi
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
unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form5: TForm5;   
 
 
 
implementation
        Type
Address = record
   Lastname: string [20];
   Firstname: string [20];
   Phone: string[15];
   StreetAddress : string [50];
   City: string [40];
   State: string [10];
End;
          var  AddressFile: File of Address;
AddressData: Address;
{$R *.dfm}
 
procedure TForm5.Button1Click(Sender: TObject);
 
 
begin
         AssignFile(AddressFile, 'MyBD.txt') ;
   if FileExists('MyBD.txt') then
      begin
         Reset(AddressFile) ;
 
         //Read(AddressFile, SaveV) ;
         AddressData .Lastname:= Edit1.Text;
   AddressData .Firstname:= Edit2.Text;
   AddressData .Phone:= Edit3.Text;
   AddressData .StreetAddress := Edit4.Text;
   AddressData .City:= Edit5.Text;
   AddressData .State:= Edit6.Text;
  Write (AddressFile, AddressData);
             CloseFile(AddressFile);
end;    end;
 
end.

@Grossmeister · 07.03.2013, 09:34

В файл записывается строка. Вот и формируй конкатенацией строку из твоих полей, зачем какие-то record-ы?

@solodinka2007 · 07.03.2013, 15:26 **[ТС]**

Условие задачи такое, сказали что нужно через рекорд)

@HyperZen · 08.03.2013, 16:47

А что там за пробелы? Например:

Delphi
1
AddressData .Lastname

@solodinka2007 · 08.03.2013, 20:16 **[ТС]**

Я думаю что нет разницы ставить здесь пробел или нет. По крайней мере я их убрала и ничего не изменилось, как не создавался файл так и не создается)

@HyperZen · 09.03.2013, 21:14

Сообщение от solodinka2007

Я думаю что нет разницы ставить здесь пробел или нет.

Разница есть!
Сравните мой код и Ваш:

Delphi
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
implementation
 
type
  Address = record
  Lastname: string [20];
  Firstname: string [20];
  Phone: string[15];
  StreetAddress : string [50];
  City: string [40];
  State: string [10];
end;
 
var
  AddressFile: File of Address;
  AddressData: Address;
 
const
  FName: string = 'MyBD.txt';
 
 
.........
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
// если файл не существует, со создаем
  if not FileExists(FName) then
    begin
      AssignFile(AddressFile, FName);
      Rewrite(AddressFile);
      CloseFile(AddressFile);
    end;
 
    // .. иначе, открываем для записи
    AssignFile(AddressFile, FName);
    Reset(AddressFile) ;
    AddressData.Lastname:= Edit1.Text;
    AddressData.Firstname:= Edit2.Text;
    AddressData.Phone:= Edit3.Text;
    AddressData.StreetAddress := Edit4.Text;
    AddressData.City:= Edit5.Text;
    AddressData.State:= Edit6.Text;
    Write(AddressFile, AddressData);
    CloseFile(AddressFile);
end;

Добавлено через 3 минуты
Кое-что забыл:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Button1Click(Sender: TObject);
begin
// если файл не существует, со создаем
  if not FileExists(FName) then
    begin
      AssignFile(AddressFile, FName);
      Rewrite(AddressFile);
      CloseFile(AddressFile);
    end;
 
    // .. иначе, открываем для записи
    AssignFile(AddressFile, FName) ;
    Reset(AddressFile) ;
    Seek(AddressFile, FileSize(AddressFile)); // встаем в конец файла ... курсором...
 
    AddressData.Lastname:= Edit1.Text;
    AddressData.Firstname:= Edit2.Text;
    AddressData.Phone:= Edit3.Text;
    AddressData.StreetAddress := Edit4.Text;
    AddressData.City:= Edit5.Text;
    AddressData.State:= Edit6.Text;
    Write(AddressFile, AddressData);
    CloseFile(AddressFile);
end;

@solodinka2007 · 09.03.2013, 23:31 **[ТС]**

Я немножко изменила код : 1) при открытии формы создается файл 2)При нажатии на Button1 мы записываем данные 3) При нажатии Button2 будет идти поиск по введенному в Edit7 номеру записи
Вот кому понадобится работающий код :

Delphi
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
unit Unit5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button3: TButton;
    Edit7: TEdit;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const Fn='C:\MyBD.txt';
var
  Form5: TForm5;       nzap,i:integer;
 
 
 
implementation
        Type
Address = record
   Lastname: string [20];
   Firstname: string [20];
   Phone: string[15];
   StreetAddress : string [50];
   City: string [40];
   State: string [10];
End;
          var  AddressFile: File of Address;                                   // Текстовой файл
 
AddressData: Address;
          const
  FName: string = '\MyBD.txt';
{$R *.dfm}
 
procedure TForm5.Button1Click(Sender: TObject);
 
 begin
 
    AssignFile(AddressFile, FName);
    Reset(AddressFile) ;
    Seek(AddressFile, FileSize(AddressFile));
    begin
    AddressData.Lastname:= Edit1.Text;
    AddressData.Firstname:= Edit2.Text;
    AddressData.Phone:=Edit3.Text;
    AddressData.StreetAddress := Edit4.Text;
    AddressData.City:= Edit5.Text;
    AddressData.State:= Edit6.Text;
    Write(AddressFile, AddressData);
    end;
    CloseFile(AddressFile);
 
 
   Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
 
        end;
 
procedure TForm5.FormCreate(Sender: TObject);
begin
 Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  nzap:=0;
  if not FileExists(FName) then
    begin
      AssignFile(AddressFile, FName);
      Rewrite(AddressFile);
      CloseFile(AddressFile);
    end;
end;
 
procedure TForm5.Button3Click(Sender: TObject);
 
var Cursor: integer;
begin
Cursor:=StrToInt(Edit7.Text);
AssignFile(AddressFile,Fn);
                  FileMode := fmOpenRead;
Reset(AddressFile);
 
 
       Seek(AddressFile,Cursor) ;
       Read( AddressFile,AddressData);
       with AddressData do ShowMessage(AddressData.firstName+' '+AddressData.LastName+' '+AddressData.Phone+' '+AddressData.StreetAddress);
              
end;
end.

@HyperZen · 10.03.2013, 10:27

Небольшие поправки:
1) Тут слешь ставить незачем:

Сообщение от solodinka2007

FName: string = '\MyBD.txt';

2) Тут логические скобки begin..end ненужны:

Delphi
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
procedure TForm5.Button1Click(Sender: TObject);
 
 begin
 
    AssignFile(AddressFile, FName);
    Reset(AddressFile) ;
    Seek(AddressFile, FileSize(AddressFile));
//    begin  - тут
    AddressData.Lastname:= Edit1.Text;
    AddressData.Firstname:= Edit2.Text;
    AddressData.Phone:=Edit3.Text;
    AddressData.StreetAddress := Edit4.Text;
    AddressData.City:= Edit5.Text;
    AddressData.State:= Edit6.Text;
    Write(AddressFile, AddressData);
//    end;
    CloseFile(AddressFile);
 
 
   Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
 
        end;

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@Grossmeister 4217 / 3059 / 583 Регистрация: 21.01.2011 Сообщений: 13,203
	07.03.2013, 09:34
	В файл записывается строка. Вот и формируй конкатенацией строку из твоих полей, зачем какие-то record-ы? 0

@solodinka2007 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 7
	07.03.2013, 15:26 [ТС]
	Условие задачи такое, сказали что нужно через рекорд) 0

@solodinka2007 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 7
	08.03.2013, 20:16 [ТС]
	Я думаю что нет разницы ставить здесь пробел или нет. По крайней мере я их убрала и ничего не изменилось, как не создавался файл так и не создается) 0