Error 102 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
119
120
121

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, Grids;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N0: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N111: TMenuItem;
    N121: TMenuItem;
    N4: TMenuItem;
    N141: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N111Click(Sender: TObject);
    procedure N121Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, Unit3;
 
type TZmain=record //NO?OEOO?A AE? INIIAIIAI OAEEA (oeiece?iaaiiiai oaeea)
     IDshop:        integer;    //  Eia oaoa:
     day:           byte;       //  Aaiu:
     month:         byte;       //  Ianyo:
     IDproduct:     string[26]; //  ID ecaaeey:
     cntProduct:    integer;    //  Eiee?anoai ecaaeee:
     cost1Product:  integer;    //  Oaia iaiiai ecaaeey:
 
end;
 
type TZreferenceBook=record //NO?OEOO?A AE? NI?AAI?IEEA (oaenoiaiai oaeea)
     IDshop:    integer;       //  Eia oaoa:
     nameShop:  string[26];    //  Iaeiaiiaaiea oaoa:
     FIO:       string[50];    //  OEI ia?aeuieea oaoa:
     phone:     string[26];    //  Oaeaoii:
end;
 
{$R *.dfm}
var
  sn: ansistring;
  s:string;
  Fmain:  file of TZmain;
  Zmain:  TZmain;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Width := 900;
  N0.Visible := false;
  N1.Visible := false;
  N2.Visible := false;
  N3.Visible := false;
end;
 
procedure TForm1.N15Click(Sender: TObject);
var
  f: integer;
begin
    f := MessageDlg('Au oaa?aiu ?oi oioeoa aueoe ec i?ia?aiiu', mtWarning, [mbOk,mbCancel],0);
    if (f = mrOk) then application.Terminate;
end;
 
procedure TForm1.N111Click(Sender: TObject);
begin
    s:=InputBox('Nicaaiea oaeea','aaaaeoa eiy','a.txt');
    AssignFile(Fmain,s);
    rewrite(Fmain);
     closefile(Fmain);
    mainf.Show;
 
end;
 
procedure TForm1.N121Click(Sender: TObject);
begin
  //Append(Fmain);
end;
 
procedure TForm1.Image1Click(Sender: TObject);
begin
  N0.Visible := true;
  N1.Visible := true;
  N2.Visible := true;
  N3.Visible := true;
  Image1.Visible := false;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
  reference_book.Show;
end;
 
end.

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

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tmainf = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Label7: TLabel;
    Button2: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  mainf: Tmainf;
 
implementation
 
uses Unit1, Unit3;
 
type TZmain=record //NO?OEOO?A AE? INIIAIIAI OAEEA (oeiece?iaaiiiai oaeea)
     IDshop:        integer;    //  Eia oaoa:
     day:           byte;       //  Aaiu:
     month:         byte;       //  Ianyo:
     IDproduct:     string[26]; //  ID ecaaeey:
     cntProduct:    integer;    //  Eiee?anoai ecaaeee:
     cost1Product:  integer;    //  Oaia iaiiai ecaaeey:
 
end;
 
{$R *.dfm}
Var
    Zmain:  TZmain;
    Fmain:  file of TZmain;
    s:      string;
 
procedure Tmainf.Button1Click(Sender: TObject);
begin
reset(Fmain);
with Zmain do
  begin
     IDshop       := strtoint(ComboBox1.Text);
     day          := strtoint(ComboBox2.Text);
     month        := strtoint(ComboBox3.Text);
     IDproduct    :=         (ComboBox4.Text);
     cntProduct   := strtoint(ComboBox5.Text);
     cost1Product := strtoint(ComboBox6.Text);
    write(Fmain,Zmain);
  end;
end;
 
end.

1

reset(Fmain);

1
2
3
4

    s:=InputBox('Nicaaiea oaeea','aaaaeoa eiy','a.txt');
    AssignFile(Fmain,s);
    rewrite(Fmain);
     closefile(Fmain);

1
2
3
4
5
6
7

    s:=InputBox('Nicaaiea oaeea','aaaaeoa eiy','a.txt');
if FileExists('Fmain') then
    AssignFile(Fmain,s);
{$I-}  // это спец директивы
    rewrite(Fmain);
{$I+}
     closefile(Fmain);

1
2

if IOResult = 0 then  begin
// дальнейший код в зависимости от проги....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

  public
    { Public declarations }
    Fmain:  file{ of TZmain};
    procedure MyFileSave(fileName: string);
  end;
 
var
  mainf: Tmainf;
 
 
implementation
 
{$R *.dfm}
 
procedure Tmainf.MyFileSave(fileName: string);
begin
    AssignFile(Fmain,s);
    rewrite(Fmain);
    Self.Show();
    // затем гдето идет запись и закрытие файла
end;

1
2

var
  mainf: Tmainf;

1
2
3
4
5

begin
   if SaveDialog1.Execute then begin
      ... код тут ....
   end
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

if SaveTextFileDialog1.Execute then
    if FileExists(SaveTextFileDialog1.FileName) then
       raise Exception.Create('Такой файл уже создан.')
    else
       try
    AssignFile (DataFile,NameToFile+'.txt');
    Rewrite (DataFile);
    WriteLn (DataFile, Label1.Caption+' '+Edit1.Text);  // ФИО
    WriteLn (DataFile, Label2.Caption+' '+MaskEdit1.Text);  // Дата рождения
    WriteLn (DataFile, Label3.Caption+' '+Edit3.Text);  //  Возраст
    WriteLn (DataFile, Label4.Caption+' '+Edit4.Text+' '+Edit5.Text); // Адрес
    CloseFile(DataFile);
      finally
      SaveTextFileDialog1.FreeOnRelease;
    end;
end;

1
2
3
4
5
6
7
8
9
10
11

Procedure Save;
begin
    // Если файл не указан, или нажата кнопка "Отмена", либо диалог закрыт по клавише Esc, то...
    if not SaveDialog1.Execute then
        // выходим.
        Exit;
        // Если файл указан и нажата кнопка сохранить,то....
    begin
    {тут что-то делаем}
    end;
end;

1
2
3
4
5
6
7
8
9
10
11
12
13

  if SaveTextFileDialog1.Execute then
    if FileExists(SaveTextFileDialog1.FileName) then
       raise Exception.Create('Такой файл уже создан.') // Не понятно зачем это.
    else begin // Без этого begin условие if..then..else действует только на одну следующую команду,
      AssignFile (DataFile, NameToFile+'.txt');
      Rewrite (DataFile);
      WriteLn (DataFile, Label1.Caption+' '+Edit1.Text);  // ФИО
      WriteLn (DataFile, Label2.Caption+' '+MaskEdit1.Text);  // Дата рождения
      WriteLn (DataFile, Label3.Caption+' '+Edit3.Text);  //  Возраст
      WriteLn (DataFile, Label4.Caption+' '+Edit4.Text+' '+Edit5.Text); // Адрес
      CloseFile(DataFile);
      SaveTextFileDialog1.FreeOnRelease;
    end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

  if SaveTextFileDialog1.Execute then begin
    if FileExists(SaveTextFileDialog1.FileName) then begin
      // Вывод сообщения об ошибке
      Label1.Caption := 'Сохранение не выполнено: Файл "'+SaveTextFileDialog1.FileName+'" уже существует.');
      Exit;
    end;
    AssignFile (DataFile, NameToFile+'.txt');
    Rewrite (DataFile);
    WriteLn (DataFile, Label1.Caption+' '+Edit1.Text);  // ФИО
    WriteLn (DataFile, Label2.Caption+' '+MaskEdit1.Text);  // Дата рождения
    WriteLn (DataFile, Label3.Caption+' '+Edit3.Text);  //  Возраст
    WriteLn (DataFile, Label4.Caption+' '+Edit4.Text+' '+Edit5.Text); // Адрес
    CloseFile(DataFile);
    SaveTextFileDialog1.FreeOnRelease; // Зачем это?
  end;