G
gun_zf
Unregistered / Unconfirmed
GUEST, unregistred user!
private
{ Private declarations }
Procedure FillFieldToCombox(AdoTable : TADOTable;FieldName : String;Combobox :TComBoBox);
public
或者放在这里
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.FillFieldToCombox(AdoTable : TADOTable;FieldName : String;Combobox :TComBoBox);
var
bTemp1,bTemp2 : Boolean ;
Tmpstr : String ;
Begin
....
end;
{ Private declarations }
Procedure FillFieldToCombox(AdoTable : TADOTable;FieldName : String;Combobox :TComBoBox);
public
或者放在这里
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.FillFieldToCombox(AdoTable : TADOTable;FieldName : String;Combobox :TComBoBox);
var
bTemp1,bTemp2 : Boolean ;
Tmpstr : String ;
Begin
....
end;