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

[Коккс]

На одной форме у меня имеются компоненты rudiobutton, scrollbar и другие. Я устанавливаю там нужные мне параметры и переходя на другую форму запускаю тестирование, но оно не работает. Переменные заданы глобальными и ссылка в uses на другую форму есть. В чем проблема, не могу разобраться?

[Serge_Bliznykov]

выложите архив с исходниками проекта или, хотя бы, покажите свой код.

Сообщение от Коккс

но оно не работает.

любопытно, а это как происходит? ошибка выдаётся? или прямо надпись на форме "я не работаю" ?

[Коккс]

Код слишком длинный. Ошибку никакую не выдает, просто не строит рисунок, так как ему, видимо, неизвестны буквы, которые там прописаны.
Это код того окна, где должен быть рисунок. А не строит его из-за переменных, т к их не видит. Исходник проекта выложить не могу, так как это мой диплом
var
Form5: TForm5;
a: integer;
F: integer;
R, G, B : integer;
i,j,k: integer;
implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
i,j,k,Q1,Q2,Q : integer;
begin
for i:=0 to image1.Width do
begin
k:= J+round(A*sin(F*2*3.14*i/image1.Width));
Image1.Canvas.Pen.Color:= RGB(k*R, k*G, k*B);
Image1.Canvas.MoveTo(i, 0);
Image1.Canvas.LineTo(i, 764);
end;
end;

[Serge_Bliznykov]

во-первых, где в вашем кусочке кода видно, что кто-то и где-то присваивал вашим глобальным переменным значения?
ну, хотя бы переменным A и F для начала.

во-вторых, грубейшая ошибка:

var
i,j,k,Q1,Q2,Q : integer;
begin
for i:=0 to image1.Width do
begin
k:= J+round(A*sin(F*2*3.14*i/image1.Width));

объявленная переменная (выделено красным) экранирует глобальную переменную j

в-третьих, приучитесь объявлять и использовать переменные в одном регистре (да, для Delphi это не важно), но когда вы в одном месте пишете a, а в другом А - это не опрятно и не красиво.

в-чётвёртых, не экономьте буковки, давайте переменным "ГОВОРЯЩИЕ" имена.
ну, например, вместо a опишите переменную: koef_A

в-пятых, переменная Pi описана в Delphi, используйте её, а не 3.14

и последнее,

Сообщение от Коккс

Исходник проекта выложить не могу

воля ваша. будем и дальше играть в угадайку - "что Вы сделали не так и почему у Вас не работает"!

[Коккс]

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