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

Передача информации в файл

18.06.2012, 17:02. Показов 903. Ответов 15
Метки нет (Все метки)

Здравствуйте, очень надеюсь на вашу помощь! Вот у меня есть программа, которая в начале выдает окно регистрации. После ввода нужной информации (Имя, Фамилия, Отчество и т.п.), программа создает html файл со статистикой пользователя (по адресу "С//Results/Фамилия Имя Отчество.html) (вид показан на рисунке). Дальше программа переходит к другой форме, которая содержит теоретический материал и в конце каждого раздела маленький тест (программа считает количество правильных и неправильных ответов).
Помогите решить проблему, как заставить программу открыть файл со статистикой и вставить туда количество правильных и неправильных ответов?
Миниатюры
Передача информации в файл  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2012, 17:02
Ответы с готовыми решениями:

передача информации в текстовый файл
Можно ли средствами ASP передавать информацию в текстовый файл?

Запись в текстовый файл информации о студентах, поиск информации, сортировка
Здравствуйте помогите пожалуйста:( 3.1 Для записи в текстовый файл информации о студентах Вашей...

Добавить к программе след действия: Сохранение и загрузка информации в текст. файл. Сохранение и загрузка информации в типизированный файл.
Помогите добавить к программе след действия: Сохранение и загрузка информации в текст. файл....

Передача информации
Здравствуйте,скажите пожалуйста вот такая ситуация: создана БД Гостиница в ней 3 таблицы...

15
HanDi
18.06.2012, 17:15
  #2

Не по теме:

Слово "Правильные" написано не правильно :friends:

0
112 / 78 / 30
Регистрация: 10.09.2011
Сообщений: 263
18.06.2012, 17:55 3
Цитата Сообщение от KuBiK90 Посмотреть сообщение
Здравствуйте, очень надеюсь на вашу помощь! Вот у меня есть программа, которая в начале выдает окно регистрации. После ввода нужной информации (Имя, Фамилия, Отчество и т.п.), программа создает html файл со статистикой пользователя (по адресу "С//Results/Фамилия Имя Отчество.html) (вид показан на рисунке). Дальше программа переходит к другой форме, которая содержит теоретический материал и в конце каждого раздела маленький тест (программа считает количество правильных и неправильных ответов).
Помогите решить проблему, как заставить программу открыть файл со статистикой и вставить туда количество правильных и неправильных ответов?
Delphi
1
2
3
4
5
6
7
8
9
10
var s: string; //это строка, которую будем писать в файл
 f: TextFile; //это переменная для текстового файла
begin
 s:='My text'; //в стоку пишем необходимый текст
 AssignFile(f, 'myfile.htm'); //поясняем компилятору что f - это наш файл под названием myfile с расширением htm 
 ReWrite(f); //перезаписываем файл (создаем, если его нет)
 Append(f); //разрешаем запись в файл
 WriteLn(f, s); //записываем в конец файла строку s, где находится наш тект
 CloseFile(f); //закрываем файл. Это нужно делать обязательно
end;
Это образец для работы с файлам. Если я правильно понял, вам необходимо создать страницу с таблицей, но для этого необходимо хоть немного знать html.
Этим примером вы можете руководствоваться, но не можете его использовать, как конечный результаты.

Добавлено через 1 минуту
Цитата Сообщение от HanDi Посмотреть сообщение

Не по теме:

Слово "Правильные" написано не правильно :friends:

Вы не правы: слово написано правильно.
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
18.06.2012, 18:09  [ТС] 4
Html я знаю на хорошем уровне. За пояснения спасибо. Но у меня остался такой вопрос, имя создаваемого файла задается на форме регистрации с помощью полей "Фамилия", "Имя", "Отчество", а как мне заставить открыть именно его на данной форме? (То есть есть Form1 (Регистрация) на ней с помощью команд:
Delphi
1
2
3
4
5
 sysutils.CreateDir('c:\Results');
 Way:='C:\Results\';
   Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
   AssignFile(Fil,Way+Filename);
   Rewrite(Fil);
создается уже файл html и ложится в определенную папку, а на Form2 как раз расположен тест, результаты которого и надо заносить в этот файл). Как мне задать что бы он открывал файл по адресу указанному на Form1 вот этими строками

Delphi
1
2
Way:='C:\Results\';
   Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
0
112 / 78 / 30
Регистрация: 10.09.2011
Сообщений: 263
18.06.2012, 18:21 5
Цитата Сообщение от KuBiK90 Посмотреть сообщение
Html я знаю на хорошем уровне. За пояснения спасибо. Но у меня остался такой вопрос, имя создаваемого файла задается на форме регистрации с помощью полей "Фамилия", "Имя", "Отчество", а как мне заставить открыть именно его на данной форме? (То есть есть Form1 (Регистрация) на ней с помощью команд:
Delphi
1
2
3
4
5
 sysutils.CreateDir('c:\Results');
 Way:='C:\Results\';
   Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
   AssignFile(Fil,Way+Filename);
   Rewrite(Fil);
создается уже файл html и ложится в определенную папку, а на Form2 как раз расположен тест, результаты которого и надо заносить в этот файл). Как мне задать что бы он открывал файл по адресу указанному на Form1 вот этими строками

Delphi
1
2
Way:='C:\Results\';
   Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
Открыть файл необходимо прямо на форме? Если да - используйте WebBrowser.
Как-то тяжко мне понять ваш вопрос, без обид
0
Житель Земли
2945 / 2922 / 389
Регистрация: 26.07.2011
Сообщений: 11,258
Записей в блоге: 1
18.06.2012, 18:31 6
Цитата Сообщение от dtsey Посмотреть сообщение

Вы не правы: слово написано правильно.
слово неправЕльно написано на картинке...

Цитата Сообщение от KuBiK90 Посмотреть сообщение
Как мне задать что бы он открывал файл по адресу указанному на Form1 вот этими строками

Delphi
1
2
Way:='C:\Results\';
   Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
ты же сохранил путь к файлу в Filename. В чем вообще проблема? Где и как должен открываться файл?
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
18.06.2012, 18:33  [ТС] 7
Да я понимаю))) Мне объяснить то тяжко Нет не в форме. Вот видите, у меня имя файла задается с помощью Edit'ов на Form1, и вот как мне задать командно в коде Form2, что менять надо именно его?
Я же не могу задать так же:
Delphi
1
2
Way:='C:\Results\';
Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
Так как эти Edit'ы находятся на Form1, а на второй их вообще нет. И как мне выйти из положения?
0
Житель Земли
2945 / 2922 / 389
Регистрация: 26.07.2011
Сообщений: 11,258
Записей в блоге: 1
18.06.2012, 18:38 8
в uses второй формы должна быть прописана ссылка на первую. примерно так

Delphi
1
2
3
implementation
 
uses Unit1;
затем после создания файла в первой форме создаешь вторую и в OnCreate второй формы грузишь файл. ВНИМАНИЕ! вторая форма не должна быть в списке автоматически создаваемых форм!

Delphi
1
2
3
4
5
6
procedure TForm2.FormCreate(Sender: TObject);
begin
  // грузишь файл куда нужно
  // ...
  ShowMessage(filename);
end;
естественно, что переменная Filename должна быть в разделе глобальных переменных.
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
18.06.2012, 18:41  [ТС] 9
DenNik, я сохранил его на Form1, а теперь надо его использовать на Form2 как мне это сделать?

Добавлено через 1 минуту
Цитата Сообщение от DenNik Посмотреть сообщение
вторая форма не должна быть в списке автоматически создаваемых форм!
Спасибо, а как понять вот эти строки?
0
Житель Земли
2945 / 2922 / 389
Регистрация: 26.07.2011
Сообщений: 11,258
Записей в блоге: 1
18.06.2012, 18:45 10
Цитата Сообщение от KuBiK90 Посмотреть сообщение
DenNik, я сохранил его на Form1, а теперь надо его использовать на Form2 как мне это сделать?

Добавлено через 1 минуту

Спасибо, а как понять вот эти строки?
ты его не на форме сохранил, а на винте. если переменную поместить в секцию глобальных переменных, она будет доступна из других модулей, в которых есть ссылка на данный модуль, для этого нужна ссылка в uses. из переменной во второй форме читаешь путь к файлу и грузишь его.

Передача информации в файл
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
18.06.2012, 18:48  [ТС] 11
dtsey, DenNik, спасибо вам большое за помощь))
0
Житель Земли
2945 / 2922 / 389
Регистрация: 26.07.2011
Сообщений: 11,258
Записей в блоге: 1
18.06.2012, 18:50 12
на всякий случай - шаблон проекта
шаблон.zip
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
19.06.2012, 01:56  [ТС] 13
Странно, вроде все тоже самое но почему то не работает.
Вот так выглядит шапка Unit2
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, sPanel, ComCtrls, sRichEdit, Grids,
  DBGrids, dblookup, DBCtrls, sDBRichEdit, sMemo, sLabel, sButton, acPNG,
  sGroupBox, jpeg, sCheckBox;
 
type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    PrintDialog1: TPrintDialog;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    sPanel1: TsPanel;
    sLabelFX1: TsLabelFX;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    sMemo1: TsMemo;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    sButton1: TsButton;
    sButton2: TsButton;
    sButton3: TsButton;
    sButton4: TsButton;
    sButton5: TsButton;
    sButton6: TsButton;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    sButton7: TsButton;
    Panel1: TPanel;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
    sLabel5: TsLabel;
    sLabel6: TsLabel;
    sLabel7: TsLabel;
    sLabel8: TsLabel;
    Image1: TImage;
    sLabel9: TsLabel;
    sLabel10: TsLabel;
    sLabel11: TsLabel;
    sLabel12: TsLabel;
    Image2: TImage;
    sLabel14: TsLabel;
    sLabel15: TsLabel;
    Image3: TImage;
    sLabel17: TsLabel;
    sLabel19: TsLabel;
    Panel2: TPanel;
    sLabel13: TsLabel;
    sLabel22: TsLabel;
    sLabel23: TsLabel;
    sLabel26: TsLabel;
    sLabel27: TsLabel;
    sButton9: TsButton;
    sButton10: TsButton;
    Panel3: TPanel;
    sButton11: TsButton;
    sButton12: TsButton;
    sButton13: TsButton;
    sButton14: TsButton;
    sPanel2: TsPanel;
    sLabelFX2: TsLabelFX;
    Panel5: TPanel;
    sLabel30: TsLabel;
    sLabel31: TsLabel;
    sGroupBox1: TsGroupBox;
    sLabel33: TsLabel;
    sButton19: TsButton;
    sButton20: TsButton;
    sPanel3: TsPanel;
    sLabelFX3: TsLabelFX;
    Panel6: TPanel;
    sLabel40: TsLabel;
    sPanel4: TsPanel;
    sLabelFX4: TsLabelFX;
    sLabel32: TsLabel;
    sLabel35: TsLabel;
    Image5: TImage;
    sLabel36: TsLabel;
    Image6: TImage;
    sLabel38: TsLabel;
    sLabel39: TsLabel;
    sLabel41: TsLabel;
    sButton17: TsButton;
    sButton18: TsButton;
    Panel7: TPanel;
    sLabel44: TsLabel;
    sPanel5: TsPanel;
    sLabelFX5: TsLabelFX;
    sButton21: TsButton;
    sButton22: TsButton;
    sLabel42: TsLabel;
    sLabel43: TsLabel;
    sLabel45: TsLabel;
    sLabel46: TsLabel;
    Panel8: TPanel;
    sLabel47: TsLabel;
    sPanel6: TsPanel;
    sLabelFX6: TsLabelFX;
    sButton23: TsButton;
    sButton24: TsButton;
    sLabel48: TsLabel;
    sLabel49: TsLabel;
    sLabel50: TsLabel;
    sLabel51: TsLabel;
    sLabel52: TsLabel;
    sLabel53: TsLabel;
    sLabel54: TsLabel;
    sLabel55: TsLabel;
    sLabel56: TsLabel;
    sLabel57: TsLabel;
    sLabel58: TsLabel;
    sLabel59: TsLabel;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    sLabel60: TsLabel;
    Panel9: TPanel;
    sLabel61: TsLabel;
    sPanel7: TsPanel;
    sLabelFX7: TsLabelFX;
    sButton25: TsButton;
    sButton26: TsButton;
    Image10: TImage;
    sLabel62: TsLabel;
    sLabel63: TsLabel;
    Image11: TImage;
    sLabel64: TsLabel;
    Image12: TImage;
    sLabel65: TsLabel;
    Image13: TImage;
    sLabel66: TsLabel;
    Image4: TImage;
    sLabel20: TsLabel;
    sLabel34: TsLabel;
    sLabel37: TsLabel;
    sLabel16: TsLabel;
    Panel4: TPanel;
    sLabel18: TsLabel;
    sLabel21: TsLabel;
    sPanel8: TsPanel;
    sLabelFX8: TsLabelFX;
    sButton8: TsButton;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    sLabel25: TsLabel;
    Panel10: TPanel;
    sLabel24: TsLabel;
    Image18: TImage;
    sPanel9: TsPanel;
    sLabelFX9: TsLabelFX;
    Image19: TImage;
    Image20: TImage;
    sButton15: TsButton;
    sButton16: TsButton;
    sButton27: TsButton;
    sLabel28: TsLabel;
    Panel11: TPanel;
    sLabel29: TsLabel;
    Image21: TImage;
    sPanel10: TsPanel;
    sLabelFX10: TsLabelFX;
    sButton28: TsButton;
    sButton29: TsButton;
    Image22: TImage;
    Image23: TImage;
    sLabel67: TsLabel;
    Panel12: TPanel;
    sLabel68: TsLabel;
    sPanel11: TsPanel;
    sLabelFX11: TsLabelFX;
    Image24: TImage;
    sLabel69: TsLabel;
    sButton32: TsButton;
    sGroupBox2: TsGroupBox;
    sLabel70: TsLabel;
    sGroupBox3: TsGroupBox;
    sCheckBox1: TsCheckBox;
    sCheckBox2: TsCheckBox;
    sCheckBox3: TsCheckBox;
    sCheckBox4: TsCheckBox;
    sCheckBox5: TsCheckBox;
    sCheckBox6: TsCheckBox;
    sButton33: TsButton;
    sCheckBox7: TsCheckBox;
    sCheckBox8: TsCheckBox;
    sCheckBox9: TsCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    sButton30: TsButton;
    sButton31: TsButton;
    Panel13: TPanel;
    sLabel71: TsLabel;
    Image25: TImage;
    sLabel72: TsLabel;
    sPanel12: TsPanel;
    sLabelFX12: TsLabelFX;
    sButton36: TsButton;
    sButton37: TsButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    sGroupBox4: TsGroupBox;
    sLabel73: TsLabel;
    sGroupBox5: TsGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure sMemo1Change(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure sButton5Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure sButton6Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure sButton9Click(Sender: TObject);
    procedure sButton11Click(Sender: TObject);
    procedure sButton12Click(Sender: TObject);
    procedure sButton13Click(Sender: TObject);
    procedure sButton15Click(Sender: TObject);
    procedure sButton14Click(Sender: TObject);
    procedure sButton7Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure sButton18Click(Sender: TObject);
    procedure sButton25Click(Sender: TObject);
    procedure sButton17Click(Sender: TObject);
    procedure sButton26Click(Sender: TObject);
    procedure sButton8Click(Sender: TObject);
    procedure sButton16Click(Sender: TObject);
    procedure sButton28Click(Sender: TObject);
    procedure sButton27Click(Sender: TObject);
    procedure sButton32Click(Sender: TObject);
    procedure sButton33Click(Sender: TObject);
    procedure sButton29Click(Sender: TObject);
    procedure sCheckBox2Click(Sender: TObject);
    procedure sCheckBox6Click(Sender: TObject);
    procedure sCheckBox3Click(Sender: TObject);
    procedure sCheckBox4Click(Sender: TObject);
    procedure sCheckBox5Click(Sender: TObject);
    procedure sCheckBox1Click(Sender: TObject);
    procedure sCheckBox7Click(Sender: TObject);
    procedure sCheckBox8Click(Sender: TObject);
    procedure sCheckBox9Click(Sender: TObject);
    procedure sButton31Click(Sender: TObject);
    procedure sButton30Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure sButton36Click(Sender: TObject);
    procedure sButton21Click(Sender: TObject);
    procedure sButton19Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  mm_ok, mm_error, mm_prav_otv, mm_neprav_otv: integer;
 
implementation
 
uses  Unit1, Unit4, Unit5, Unit6, Unit7, Unit8;
 
{$R *.dfm}
А вот так в Unit1

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, sEdit, sGroupBox, sButton, sLabel, sMemo,
  Buttons, sBitBtn, Registry;
 
type
  TForm1 = class(TForm)
    sLabelFX1: TsLabelFX;
    sButton1: TsButton;
    sButton2: TsButton;
    sButton3: TsButton;
    sGroupBox1: TsGroupBox;
    sEdit1: TsEdit;
    sGroupBox2: TsGroupBox;
    sEdit2: TsEdit;
    sGroupBox3: TsGroupBox;
    sEdit3: TsEdit;
    sGroupBox4: TsGroupBox;
    sEdit4: TsEdit;
    sSkinManager1: TsSkinManager;
    sGroupBox5: TsGroupBox;
    sEdit5: TsEdit;
    sGroupBox6: TsGroupBox;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    sEdit6: TsEdit;
    procedure sButton1Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure sButton4Click(Sender: TObject);
    procedure sEdit1Change(Sender: TObject);
    procedure sEdit2Change(Sender: TObject);
    procedure sEdit3Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2, Unit3, Unit8, Unit9;
 
{$R *.dfm}
В итоге все равно ругается при компиляции в Unit2 на один из операторов из Unit1. А именно:
в Unit1 есть строки:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.sButton3Click(Sender: TObject);
var i, j: Integer;
    Way,Filename:string;
    Fil:TextFile;
begin
if (sEdit1.Text='') or (sEdit2.Text='') or (sEdit3.Text='') or (sEdit4.Text='') or (sEdit5.Text='')
then Form3.ShowModal
else
begin
 sysutils.CreateDir('c:\Results');
 Way:='C:\Results\';
   Filename:=sEdit1.Text+' '+sEdit2.Text+' '+sEdit3.Text+'.html';
   AssignFile(Fil,Way+Filename);
   Rewrite(Fil);
   .........
   CloseFile(Fil);
   Form2:= TForm2.Create(Application);
   Form2.ShowModal;
end;
end;
затем я для проверки работоспособности делаю так
Delphi
1
2
3
4
procedure TForm2.FormCreate(Sender: TObject);
begin
showmessage(Way+Filename);
end;
А к этой строчке showmessage(Way+Filename); получаю ответ Undeclared identifier: 'Way'
Либо я что то упустил, либо я не знаю, может подскажите?
0
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
19.06.2012, 02:13  [ТС] 14
Вот скриншот на всякий случай
Миниатюры
Передача информации в файл  
0
Житель Земли
2945 / 2922 / 389
Регистрация: 26.07.2011
Сообщений: 11,258
Записей в блоге: 1
19.06.2012, 14:13 15
ты знаешь, что такое глобальные и локальные переменные? если нет, почитай - и вопросы отпадут сами собой. Ищи по теме "Область видимости переменных"
1
0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 9
19.06.2012, 20:42  [ТС] 16
DenNik, спасибо тебе большое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2012, 20:42

Передача информации
Здравствуйте.Программирую в C++/Qt Проблема состоит в передаче данных между формами.Мне нужно...

Передача информации
Файл передается V=100 Кбит/c(сделать combobox с ед.измерения) Q=1 мб(сделать combobox с...

Передача информации по сокетам
Здравствуйте. Хочу сделать клиент\сервер'ную программу, которая через сокеты через протокол TCP...

Передача информации серверу
Клиент принимает с клавиатуры команды и передает их серверу. Сервер выполняет эти команды,...

Передача информации из массива GET
<?php session_start(); if(isset($_GET)){ header('location: g1.php'); } ...

UserControl передача информации
Здравствуйте, как мне пользоваться информацией из Form в UserControl, и наоборот? (Нужно чтобы...


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

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

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