[Anfänger] Daten von einer Unit in einer anderen verwenden

[sungamer]

Unit: Login

Delphi-Quellcode:

  private
    { Private-Deklarationen }
  FMysql: TMysqlClient;
  FResult: TMysqlResult;
  public
  user: string;
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses main;



{$R *.dfm}


procedure TForm2.Button2Click(Sender: TObject);
begin
user := edit1.Text;
end;

Unit: main

Delphi-Quellcode:

implementation

uses login;


{$R *.dfm}



//Statusbar
statusbar2.panels[0].text := user;
end;

end.

Habe ein paar sachen weggelassen!