如何调用其它单元的变量值？(50分)

我在单元A中申请了一个变量a:string;并赋值为'good',然后在单元中调入A的值。
请问在单元A中如何设置变量，在单元B中如何调用其值？非常谢谢！

把需要调用的变量放到接口部分！

1.定义单元
unit Unit2;

interface

const a:string='good';

implementation

end.

2.调用单元
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses
unit2;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(a);
end;

end.

这样也可以的：
unit Unit2;

interface

var
a:string='good';

implementation

end.

同意楼上的！

如果有一些变量你要在几个单元中使用的话，建议你使用一个单独的单元存放这些变量。
具体调用同意lujr的。

大家都说了，哎~~~~晚了。

我接受