Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 08.11.2014
Сообщений: 2
1

Выдает ошибку. Не пойму почему

08.11.2014, 21:08. Показов 767. Ответов 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
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, AxCtrls, OleCtrls, VCF1, StdCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N3: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    F1Book1: TF1Book;
    max1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    F1Book2: TF1Book;
    F1Book3: TF1Book;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Label1: TLabel;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  mass1:array[1..16] of string;
  mass2:array[1..16] of real=(0.02,0.025,0.025,0.03,0.04,0.045,0.02,0.03,0.04,0.022,0.032,0.03,0.04,0.05,0.025,0.02);
  mass3:array[1..16] of real=(17.25,24.95,25.905,17.425,23.825,16.96,25.8,25.905,25.905,23.55,23.55,9.1,8.035,8.275,8.44,15.34);
  f:textfile;
implementation
 
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var k:smallint;
i:integer;
begin
assignfile(f,'file2.txt');
rewrite(f);
closefile(f);
f1book1.Read('file2.txt',k);
for i:=1 to 16 do
mass1[i]:=f1book1.TextRC[i,1];
end;
 
 
procedure TForm1.N1Click(Sender: TObject);
var
k:smallint;
i:byte;
begin
  for  i:=1 to 16 do
  f1book1.numberRC[i,2]:=mass2[i];
  for  i:=1 to 16 do
  f1book1.numberRC[i,3]:=mass3[i];
  end;
 
procedure TForm1.N2Click(Sender: TObject);
var i:byte;
begin
 assignfile(f,'file2.txt');
  append(f);
  for i :=1 to 16 do
  begin
  write(f,mass1[i]:15,' ');
   write(f,mass2[i]:10:2);
    write(f,mass3[i]:10:2);
    writeln(f);
    end;
    writeln(f);
    closefile(f);
end;
 
procedure TForm1.N4Click(Sender: TObject);
var
h:real;
i:byte;
begin
h:=mass2[1];
for i:=2 to 16 do
if mass2[i]>h then h:=mass2[i];
f1book2.textRC[1,1]:='prom aqua';
f1book2.NumberRC[2,1]:=h;
end;
 
 
procedure TForm1.N5Click(Sender: TObject);
var h:real;
i:byte;
begin
h:=mass3[1];
for i:=2 to 16 do
if mass3[i]>h then h:=mass3[i];
f1book2.textRC[1,2]:='length';
f1book2.NumberRC[2,2]:=h;
end;
 
procedure TForm1.N7Click(Sender: TObject);
var n:integer;
i:byte;
begin
n:=0;
 assignfile(f,'file2.txt');
  append(f);
  writeln(f);
  writeln(f);
for i:=1 to 16 do
begin
if ((0.029<mass2[i]) and (mass2[i]<0.031)) then begin n:=n+1; f1book3.TextRC[n,1]:=mass1[i];
                                                      f1book3.numberRC[n,2]:=mass2[i];
                                                      f1book3.numberRC[n,3]:=mass3[i];
                                                      write(f,mass1[i]:15,' ');
                                                      write(f,mass2[i]:10:2);
                                                      write(f,mass3[i]:10:2);
                                                      writeln(f);
                                                      end;
end;
closefile(f);
end;
 
 
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2014, 21:08
Ответы с готовыми решениями:

Выдает ошибку i/o error 6 в delphi она останаливается на Read не пойму почему?
procedure TForm4.Button1Click(Sender: TObject); var Z:integer; begin...

Почему выдает ошибку?
Ошибка; '' is not valid integer value. приведено диалоговое окно программы после завершения...

Почему выдает ошибку???
Что это может быть за ошибка, с чем связана и как его исправить? Заранее спасибо!!! ...

почему выдает ошибку на деление
как исправить чтобы не выдавло ошибку(можно было делить на 5). uses Windows, Messages,...

3
Native x86
Эксперт Hardware
5080 / 2946 / 852
Регистрация: 13.02.2013
Сообщений: 9,441
08.11.2014, 21:11 2
Alexey_olkh, ни здравствуйте, ни до свидания, ни оформления кода тегом [delphi], ни указания текста ошибки и номера строки, где она возникает...

Вы действительно надеетесь, что кто-то захочет в этом разбираться?
0
0 / 0 / 0
Регистрация: 08.11.2014
Сообщений: 2
08.11.2014, 21:15  [ТС] 3
ошибка такого вида
project Project1.exe raised exception class EOleException with message 'Invalid file'. Process stopped. Use Step or Run to
continue.

Добавлено через 51 секунду
Впервые на этом форуме

Добавлено через 1 минуту
54 строка, в ней ошибка
0
Модератор
3477 / 2600 / 741
Регистрация: 19.09.2012
Сообщений: 7,967
08.11.2014, 21:25 4
Ты файл сначала перезаписываешь, а потом пытаешься что-то из пустого файла читать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2014, 21:25

Не понимаю почему выдает ошибку
procedure TForm1.Button1Click(Sender: TObject); var f : textfile; i : integer; begin if...

Почему выдает такую ошибку?
Unit2.pas(93): E2003 Undeclared identifier: 'Edit1'

Почему не проходит компиляцию? выдает ошибку
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Посмотрите код. Почему выдает ошибку?
Как исправить ошибку? Помогите пожалуйста Задача: Авиабилет Структура записи -пункт...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru