摘要： procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if StringGrid1.Cells[10,ARow] = TestNo then begin StringGrid1.Canvas.Fon... 阅读全文

该文被密码保护。 阅读全文

该文被密码保护。 阅读全文

该文被密码保护。 阅读全文

摘要： function ExportToWord(StrList: TStrings; SavePath: string): Boolean; var WordApp: TWordApplication; WordDoc: TWordDocume... 阅读全文

摘要： function GetNumSumFromStr(Str: string): Integer; function IsNumber(SoureChar: Char): Boolean; begin Result... 阅读全文

摘要： 1 TClientDataSet.IndexFieldNames := '字段' 阅读全文

摘要： --测试环境 create table table1(id int primary key) insert table1 select 1 union all select 2 --查看表 select * from table1 --操作A(执行错误后，事务没有回滚) begin tran delete From table1 where id=1 Insert into A(Fie... 阅读全文

该文被密码保护。 阅读全文

摘要： WebBrowser1.GoHome; //到浏览器默认主页 WebBrowser1.Refresh; //刷新 WebBrowser1.GoBack; //后退 WebBrowser1.GoForward; //前进 WebBrowser1.Navigate('...'); //打开指定页面 WebBrowser1.Navigate('about:blank'); //打开空页面 ... 阅读全文