WANGXUELLD的专栏

1： 实现输入数据的传入 ：如图tlb位置的编辑所示，编辑出入接口 procedure TActiveFormX.In_Data(var In_Data: OleVariant);begin      Cds1.Data := In_Data;  // Self.btn1.Click ;end;2： 实现和数据传入接口对接procedure TForm1.Button1Click(

procedure TActiveFormX_Open_Excel.btn1Click(Sender: TObject);var   EX ,Ws:    Variant;   fn: String;   i:  integer;   str_in_code: Tstringlist;   str_in_code_11: string;   str_in_code_22:string ;   St

{******************************************************************************}{** A Base64 encoding unit ****************************************************}{***************************************