送分题 关于一个全程变量 【50分】

Question

典型的菜鸟提问
拉一个控件combobox
将用户的选择（combobox）的值 保存在一个全程变量里(如user_ibm)   
如何定义全程变量user_ibm
在哪里定义？
可否给出全部代码 谢谢。。

Answer 1

新增一个unit文件,写上
var
gSelexctIndex: integer;
gSelectValue: string;使用他们之前引用该单元文件即可

Answer 2

添加一个Unit，在其中的interface...implementation之间使用var声明
unit mypublicvar
interface
uses ...
...
var
  publicvar1: sometype;
...
implementation
...
end.
所有需要用到的都uses mypublicvar;

Answer 3

我新建了两个form
这个是form2interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables;type
  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    Button1: TButton;
    Query1: TQuery;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
 //是在这里定义全局变量？怎么定义？如何把用户的选择保存在一个全程变量里(如user_ibm)?   
    { Public declarations }
  end;var
  Form2: TForm2;implementationuses Unit1;
  //还是在这里定义全局变量？ 怎么定义？如何把用户的选择保存在一个全程变量里(如user_ibm)?
 {$R *.DFM}
procedure TForm2.ComboBox1Change(Sender: TObject);
var i:integer;
begin
for   i:=0   to  screen.Imes.Count-1 do
   begin
   ComboBox1.ITems.Add(Screen.Imes[i]);  //获取输入法列表
   end;
end;如何在form2中如何定义一个全局变量  然后跳转到form1中也可以引用combobox选中的值？

我在form1的FormCreate里下面的语句
EdIT1.ImeName:=user_ibm；是这样吧
但是就是不能引用
我不知道如何引用 
拜托大家帮忙 谢谢

Answer 4

新建个单元 在这个单元中建立全局变量　２楼说的很清楚了
·所有需要用到的都uses mypublicvar;

Answer 5

//新建一个Unit单元UnitPub
unit UnitPub;interfacevar
  user_ibm: string;//全程变量在这里定义implementationend.//form2的
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables,UnitPub;//这里引用UnitPub单元
//form2的Combobox赋值给user_ibm
   user_ibm:=combobox1.text;
{form1里面也要引用UnitPub单元(和form2引用方法一样)引用后就可以使用全局变量user_ibm了，
比如：form1里面的edit1控件要引用user_ibm变量}
  edit1.text:=user_ibm;

Answer 6

呃 现在定义全程变量知道了 
但是怎么把在combobox选中的值存储到定义的全局变量中？
然后能够直接在另外的页面直接使用
再次麻烦了 
今天不能加分了
明天加分给你们
谢谢

Answer 7

var G_Combobox_str: string;使用时
G_Combobox_str:= combobox.text; 

Answer 8

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  你的全局變量名  := Tcombobox(Sender).text;
end; 在 Combobox 的 OnChange  事件裏寫