[kaizer131]

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

код формы1

Код:

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

Код:

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);
// выводим вметку гл.переменную
end;

end.

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

[Act]

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

[kaizer131]

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

[kaizer131]

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