[kaizer131]

Всем прива, кто поможет решить головоломку?
на одной форме есть Edit куда мы вводим строку,и записываем её в гл переменную , которая должна выводиться в Label второй формы

код формы1

Код:

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

unit Name;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Borland.Vcl.StdCtrls, Borland.Vcl.Buttons, System.ComponentModel,   MENU;   type   TForm4 = class(TForm)     Edit1: TEdit;     Label1: TLabel;     BitBtn1: TBitBtn;     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form4: TForm4;   A:integer; implementation {$R *.nfm} procedure TForm4.BitBtn1Click(Sender: TObject); begin A:=StrToInt(Trim(Edit1.Text));   Form4.Hide;   Form3.Show;   end;   end.

код формы2

Код:

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

unit MENU;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, System.ComponentModel, Borland.Vcl.ExtCtrls,   Borland.Vcl.StdCtrls, Borland.Vcl.Buttons;   type   TForm3 = class(TForm)     Image1: TImage;     BitBtn1: TBitBtn;     BitBtn2: TBitBtn;     BitBtn3: TBitBtn;     BitBtn4: TBitBtn;     BitBtn5: TBitBtn;     BitBtn6: TBitBtn;     BitBtn7: TBitBtn;     BitBtn8: TBitBtn;     Label1: TLabel;     procedure BitBtn8Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);     procedure FormPaint(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; //uses Round, MENU; var   Form3: TForm3;  A:integer; implementation  uses Round; {$R *.nfm}   procedure TForm3.BitBtn8Click(Sender: TObject); begin Form3.Close; end;   procedure TForm3.BitBtn1Click(Sender: TObject); begin Form2.Show; Form3.Hide; end;   procedure TForm3.FormPaint(Sender: TObject); begin  Label1.Caption:=IntToStr(A); <font color="Red">// выводим вметку гл.переменную</font> end;   end.

В итоге в Label выводиться0 вместо введенной строки, в чем дело?
делаю все в Delphi 8

[Act]

у второй формы ты выводишь, перменую второй формы а не первой.
//uses Round, MENU; // раскоменьть что б был модуль меню, по хорошему лучше другую переменую использовать во второй форме ( что б не было совпадений с другими перемеными форм). Ну а если так нужно, то сделай жесткую ссылку т.е. label1.Caption := IntToStr(MAIN.Tform4.A);

[kaizer131]

при обьявлении жестко ссылки он ругается на необьявленный идентификатор MAIN

[kaizer131]

Ура , разобрался теперь все работает,спасибо за советы