Delphi окна

[tanek]

Здраствуйте.....
Не могли бы вы мне прояснить кое что....
Я в программе собираюсь использовать две формы....
одна которая вычисляет некоторые значения, а другая форма будет строить график по этим значениям...
Как две формы связать я поняла..
А вот как передать эти значения на другую форму???
Подскажите мне пожалуйста

[notHaker]

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

А вот как передать эти значения на другую форму???
Подскажите мне пожалуйста

ггггг . Есть много способов... а вабще можно вызовом функции формы которая строит график...

uses Unit2;

Form2.SetFunc(data : pointer) // это я к примеру

Можно глобальными переменными, а потом опять же вызывать функцию обновления графиков (ну или сообщить второй форме что данные обновились).

[mihali4]

Берем переменную из второй формы в первую:
NewVar:=Form2.MyVar;

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

А зачем их множить если есть доступ к этим же данным во втором модуле?... А хотя гггг....

Это просто описание принципа, а не готовый ответ

[notHaker]

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

Берем переменную из второй формы в первую:
NewVar:=Form2.MyVar;

А зачем их множить если есть доступ к этим же данным во втором модуле?... А хотя гггг....

[tanek]

гыыыыы..... не получается... не могу передать параметры...
не могли бы вы мне посмотреть проект сам?
пожалуйста....

[notHaker]

итак... в чём состоит задание и что делали вы сами, а что нет? и ГЛАВНОЕ - чего вы хотели добиться в Unit2?

[Stilet]

Танюша. что-то мне твой алгоритм предельно не нравится...
Что он делать должен?

[Lokuson]

Для того что бы переменные одного модуля Unit1(например) были доступны во втором модуле Unit2(например) Можно:
1. Объявить переменные глобальными в модуле 1 и в модуле 2 в uses прописать название модуля 1 (uses unit1)
2. Можно Объявить функцияю/процедуру модля 1 в пространстве имен класса формы первого модуля (в разделе public пишем переменную:
type
TForm1 = class(TForm)
private
public
MyVar: integer;
end;

Затем в модуле 2 пишем Form1.MyWar и получаем её значение.
3. Можно из формы 1 обращаться к компонентам формы 2 для управления ими (рисования графиков, присваивания названий компонентов) для этого в коде при вывод графика и/или значения пишем Form2.label1.Caption:=MyVar

[tanek]

Я сделала программу вычисления СЛАУ методом простых итераций...
Я ввожу матрицу 3x3, а 4-ая строка идет в матрицу vsego, которая отвечает за свободные коэффициенты....
Он расчитывает прекрасно, и вот я подумала сделать вторую форму, которая бы рисовала диаграмму по ответу....
Поэтому мне нужно туда передать x[g,i], i в unit2 вы не могли бы хотябы кусочек продемонстрировать, а то я не понимаю?!?!?!. Смогла только привязать форму2 к форме1 в процедуре, которая отвечает за построения графика.....

ребят.... ну помогите мне плз... не могу понять

type
TForm1 = class(TForm)
private
public
MyVar: integer;
end;

[Stilet]

Итак Танюша:
1) Переносим uses Unit2; в самое начало модуля, в interface
2) в Unit2 переносим из первого ArrayX=array [1..100] of array [1..100] of extended;
Пусть там лежит, именно поэтому нужно выполнить 1)
3) x:ArrayX; скопируй во второй модуль в var; Он будет посредником
4) процедуру обьявляй так:
procedure MyGrath(i:integer;x:ArrayX;Sender:TObject);

5) в главной форме пиши вызов окна графика так:

procedure TForm1.N3Click(Sender: TObject);
begin
 Form2 := TForm2.Create(Application);
 form2.MyGrath(1,x,self);
 form2.Show;
end;

6) Я конечно может чего-то не допонял, но мне ойкак не понравилась твоя работа с гридом. Там ты написала обращение у четвертой колонке, с которой vsego берется, но в работе у меня лично колоноки с таким номером нет, и прога твоя падала. Посему поставил заполнение таблицы так:

     for i:=1 to count do
    for j:=1 to count+1 do begin
      DefinitionMatrix.Cells[j,i]:=format('%2.3f',[50/(random(100)+1)]);
      matrix[i,j]:= StrToFloat(DefinitionMatrix.Cells[j,i]);
    end;

    for j:=1 to count do
       vsego[j]:=StrToFloat(DefinitionMatrix.Cells[j,3]);
    CalculationOfMaximum;