Модули

[Astat]

Всем привет!
Проблема моя вот в чем. Осваиваю Делфи.Как я понимаю каждая форма относится к определенному модулю. Суть в том что в 1-ом модуле я произвожу вычисления и у меня там хранятся данные. Из первой формы я вызываю вторую форму, тем самым открывается второй модуль. И мне нужно вывести на вторую форму данные из 1ого модуля. Как мне это сделать? Подскажите пожалуйста! Буду очень благодарен.
P.S. Может быть я не четко выразился т.к. новичек, если кому не ясно что я имел ввиду отпишитесь пожалуйста, я объясню тогда по другому.

[GunSmoker]

Ну, ты код покажи, как вторую форму показываешь. Тебе покажут, чего куда приписать.

[Astat]

procedure tabl(a:mas; var b:mas);
//вот в этой процедуре я произвожу нужые расчеты
end;
procedure TForm1.Button1Click(Sender: TObject);
..............//Забираю с ячеек данные и заношу их в матрицу
tabl(a,b);
end.

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show(); // вызываю вторую форму нажатием на кнопку, и вот как раз в этой форме должны появится данные которые я вычисляю в процедуре tabl :)
end;

Код заменил комментариями в целях экономии места и читабельности
Ну а во втором модуле ничего не написано, все что приведено выше это все с первого модуля. Заранее спасибо!

[Человек_Борща]

Делай глобальной переменную для хранения данных.

Затем в uses второй формы, добавь первую.
И в событии OnShow второй высывай данные из глоб. массива.


о можно и проще.

var
   a:blabla; //Глабольная переменная

implementation 

procedure tabl(a:mas; var b:mas);
//вот в этой процедуре я произвожу нужые расчеты
{Загоняй всё в глоб перемнную a}
end;

procedure TForm1.Button1Click(Sender: TObject);
..............//Забираю с ячеек данные и заношу их в матрицу
tabl(a,b);
end.

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show(); // вызываю вторую форму нажатием на кнопку, и вот как раз в этой 
Form2.{Куда-то посылаем данные}:=a;
форме должны появится данные которые я вычисляю в процедуре tabl :)
end;

[Astat]

Спасибо! Попробую разобратся. Надеюсь все получится
А Можно пожалуйста поподробней об этой строчке:

Form2.{Куда-то посылаем данные}:=a;

Сделал все как вы сказали(только данные у меня в масиве b, ест-нно присваивал массив b) и вылезает ошибка, действительно сам не понимаю, разве можно так массив присвоить к форме?
И правильно я понимаю что в Delphi так же как и в паскале объявляются локальные переменные, работают функции и процедуры, также есть головная часть программы? Или я ошибаюсь? С паскалем просто проблем нет. Просто меня путают например в разделе описаний пользовательских типов какие-то не ясные описания которые создаются самой программой, но ведь суть самого раздела такая же как и в паскале? И тоже ли самое с разделом var (я про головную часть программы)? Буду очень благодарен за ответы на мои вопросы. Спасибо!

[GunSmoker]

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

Код заменил комментариями в целях экономии места и читабельности

Перестарался. Из приведённого кода не ясно, какие данные нужно показать на Form2.

Ладно, в любом случае план таков:
1. Открываем модуль 2 с Form2 и создаём новый метод:

unit Unit2;

interface

...

type
  TForm2 = class(TForm)
  ...
  public
    procedure Setup(const I: Integer; const S: String);
  end;

var
  Form2: TForm2;

implementation

...

procedure TForm2.Setup(const I: Integer; const S: String);
begin
  Caption := 'Ура, нас вызвали с ' + IntToStr(I) + ' и ' + S;
  Label1.Caption := IntToStr(I);
  Label2.Caption := S;
end;

end.

Здесь предполагается, что тебе на форме 2 надо отобразить число I и строку S. Если тебе надо что-то другое (а тебе надо другое), то меняй список параметров в процедуре Setup на нужный.

Также тут предполагается, что на форме есть две метки - на которых мы, собственно, и отображаем данные. Понятно, у тебя данные могут отображаться иначе.

Теперь в модуле 1 достаточно написать:

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.Setup(5, 'Show me the money');
  form2.show;
end;

Понятно, тебе надо снова подставить свои данные.

Сообщение от Человек_Борща

Делай глобальной переменную для хранения данных.

Зачем плохому учишь?

[Человек_Борща]

А есть статья "Почему глобальные переменные, плохо?"

[GunSmoker]

У меня - нед

А вообще - ну например или так.

[Astat]

Спасибо за отзыв! Теперь все ясней, только вопросик есть

Перестарался. Из приведённого кода не ясно, какие данные нужно показать на Form2.

Мне требуется вывести 20 элементов массива. Соотв. по одному элементу на лейбл формы 2.

form2.Setup(5, 'Show me the money');

можете пожалуйста пояснить параметры этой процедуры? Я про число 5.

И вот такой вопрос. Например чтобы забрать с edit1 данные мне нужно прописать,
a[i,j]:=strtoint(edit1.text);

А суть в том что у меня этих edit'ов 20 штук, приходится писать соотественно 20 строк. А нельзя ли обойтись вложенным циклом? В нем будут изменятся индексы массива, а вот можно ли изменять сам edit1.text например на editi.text где i параметр цикла, т.е. должно же получится edit1.text.edit2.text edit3.txt....edit20.txt, или так делать нельзя?

Зачем плохому учишь?

Хм... поясните пожалуйста, а что плохого в использовании глобальных перемнных? Ведь это действительно иногда необходимо или же просто удобней.

[GunSmoker]

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

можете пожалуйста пояснить параметры этой процедуры? Я про число 5.

Взяты от балды. Думаешь, 42 было бы лучше?

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

И вот такой вопрос. Например чтобы забрать с edit1 данные мне нужно прописать,
a[i,j]:=strtoint(edit1.text);

А суть в том что у меня этих edit'ов 20 штук, приходится писать соотественно 20 строк. А нельзя ли обойтись вложенным циклом?

Можно и циклом. Но для начала: может лучше эти 20 edit-ов заменить одним TStringGrid с 20 строчками?

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

Хм... поясните пожалуйста, а что плохого в использовании глобальных перемнных? Ведь это действительно иногда необходимо или же просто удобней.

В двух словах не объяснить. Можешь поверить на слово, почитать по ссылкам выше или найти ответ самостоятельно.