Как перенести значение переменной из одной формы в другую?

08.03.2010, 05:35. **Показов** 29107. **Ответов** 11

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

Например, я создал тест, в одной форме (I Часть теста) подсчитывает кол-во правильных ответов и во второй форме (II Часть). Мне нужно вывести общее кол-во правильных ответов. Как перенести значения из первой формы во вторую?

@igoriy · 08.03.2010, 08:54

а код можно

@Inadequate · 08.03.2010, 12:20

Inkogn1to, просто свяжи формы (Alt + F11)

@*~<`PIK`>~* · 08.03.2010, 12:30

Прописываешь в Unit1 в Uses Unit2. А потом в 1 форме просто используеш переменную с формы 2.
Например:
в форме2:

Delphi

1	s:='qwerty';

а в форме1 пишешь например:

Delphi

1	ShowMessage(s);

и все. Главное, чтобы переменная с формы2 не использовалась в форме1.

@lord24 · 31.01.2013, 11:28

А вот не получается у меня. Надо чтобы значение переменной из form1 вставилось в form2 в edit1 при открытии формы
Переменную объявляю так в Unit1:

Delphi

1
2
3

  public
    { Public declarations }
    x, TabNum : string;

Вставляю так в Unit2:

Delphi

1	Edit1.Text := Form1.TabNum;

Возникает только вопрос: в какое место этот код надо вставить, что бы заполнился Edit1 как надо? Пробовал на кнопку открытия формы и в OnCreate - не помогло. Если в OnCreate - вставляет сразу, когда еще нет значения в переменной.

@morgan4ik · 31.01.2013, 11:32

У тебя 2 формы между собой связаны?

@lord24 · 31.01.2013, 11:49

Да, если через showmessage(TabNum) в form2 на кнопку, то все видно, а иначе не знаю.

@Fenix_dragon · 31.01.2013, 12:04

Объяви переменную в разделе var

@lord24 · 31.01.2013, 12:08

То есть так

Delphi

  public
    { Public declarations }
    x, TabNum : string;
 
  end;
 
var
  Form1: TForm1;
  var
  TabNum : string;
 
implementation

А куда вставлять эту строчку

Delphi

1	Edit1.Text := Form1.TabNum;

@Fenix_dragon · 31.01.2013, 12:13

lord24, убери TabNum из раздела public - это же переменная первого юнита, а не исключительно формы.

Если Edit1 находится на фторой форме (т.е. принадлежит второму модулю (Unit2)) то втули данную строчку
Edit1.Text := TabNum;

в процедуру TForm2.FormShow (или где тебе надо)

@Romantik_FM · 31.01.2013, 12:15

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

А куда вставлять эту строчку
Код Delphi
1
Edit1.Text := Form1.TabNum;

в событие onShow второй формы

@lord24 · 31.01.2013, 12:29

Спасибо, свершилось.

Inkogn1to
		1
	Как перенести значение переменной из одной формы в другую? 08.03.2010, 05:35. Показов 29107. Ответов 11 Метки нет (Все метки) Например, я создал тест, в одной форме (I Часть теста) подсчитывает кол-во правильных ответов и во второй форме (II Часть). Мне нужно вывести общее кол-во правильных ответов. Как перенести значения из первой формы во вторую?

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	08.03.2010, 08:54	2
	а код можно 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	08.03.2010, 12:20	3
	Inkogn1to, просто свяжи формы (Alt + F11) 1

@morgan4ik 3 / 3 / 0 Регистрация: 04.12.2009 Сообщений: 43
	31.01.2013, 11:32	6
	У тебя 2 формы между собой связаны? 0

@lord24 0 / 0 / 0 Регистрация: 07.05.2010 Сообщений: 27
	31.01.2013, 11:49	7
	Да, если через showmessage(TabNum) в form2 на кнопку, то все видно, а иначе не знаю. 0

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	31.01.2013, 12:04	8
	Объяви переменную в разделе var 0

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	31.01.2013, 12:13	10
	lord24, убери TabNum из раздела public - это же переменная первого юнита, а не исключительно формы. Если Edit1 находится на фторой форме (т.е. принадлежит второму модулю (Unit2)) то втули данную строчку Edit1.Text := TabNum; в процедуру TForm2.FormShow (или где тебе надо) 0

@Romantik_FM 324 / 316 / 84 Регистрация: 03.03.2010 Сообщений: 1,364
	31.01.2013, 12:15	11
	Сообщение от lord24 А куда вставлять эту строчку Код Delphi 1 Edit1.Text := Form1.TabNum; в событие onShow второй формы 1

@lord24 0 / 0 / 0 Регистрация: 07.05.2010 Сообщений: 27
	31.01.2013, 12:29	12
	Спасибо, свершилось. 0