原创 delphi字符串替換

{  功能:字符串替換  參數:    s: 源字符串    source: 需要被替換的字符串    target: 需要替換成的字符串  返回值:

原创 asp.net控制打印區域

 <style type="text/css" media="print">        .noprint{display : none }    </style> class="noprint"的區域不會在打印時出現

原创 Delphi操作word的基本用法

剛把delphi撿起來,第一個要做的竟然操作word,總結一下。 一. 定義word應用程序,文檔對象,比如: wordApp: OleVariant;   wordDoc: OleVariant;二. 打開word文檔 wordApp

原创 delphi獲取子字符串

1.{作用:截取字符串中的某一些字符 strSource:源字符串 strBegin: 開始位置字符串 strEnd:  結束位置字符串例:GetStr('abcd1234','bc','34')返回值:'d12'}function Ge

原创 微軟的網頁在firefox上面字體變化

    微軟真不受人歡迎,微軟的幾個網站,包手幫助文件在firefox瀏覽器上面顯示有問題,字體會改變。而回到ie上面卻顯示正常. 

原创 讀txt文件內容

using System; using System.Collections; using System.Configuration; using System.Data; using System.Linq; using System.

原创 delphi DatatoExcel

  procedure DataToExcel(eQUery: TADOQuery ;eGrid : TDBGrideh; cfromname:string);var  ExcelApp: Variant;    //Excel對象  i

原创 asp包含其他頁面

1.<%server.Execute("service_hotel_comments.asp")%> 2.<script src="http://202.103.68.57/Hotel_Order_Report/service_hotel

原创 delphi outlook發送郵件

 1.定義//mail信息結構type  TMailInfo = record    strUID, strPWD, strHost:string; //SMTP用戶ID , SMTP用戶密碼 , SMTP主機    iPort:Inte

原创 Delphi 系統服務

安裝服務程序  function TForm1.InstallService: Boolean;var  schSCManager,schService:THANDLE;  strDir:array[0..1023]of char;  l

原创 Delphi webBrowser焦點

var  oldcur:tcursor;begin  oldcur   :=   Screen.Cursor;  screen.cursor   :=crHourGlass;     OpenEnglishItinerary();    

原创 Html精確定位,ScrollHeight等介紹,以及一個例子實現在某個控件處打開一個DIV

HTML:scrollLeft,scrollWidth,clientWidth,offsetWidth到底指的哪到哪的距離之完全詳解scrollHeight: 獲取對象的滾動高度。 scrollLeft:設置或獲取位於對象左邊界和窗口中目

原创 asp中sql語句

1.執行存儲過程     (1)存儲過程中應該使用set nocount on     (2)     rs.close    set rs=nothing    set rs=CreateObject("ADODB.DataSet") 

原创 WinAPI: ShellExecute - 打開外部程序或文件

WinAPI: ShellExecute - 打開外部程序或文件 ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定動作, 譬如: open、prin

原创 DELPHI編譯的DLL喜歡內存泄漏

用Delphi的過程中難免會遇到很多奇怪的問題,而Delphi的文檔也出奇的少,因此只能自己慢慢的總結,所以有了下文(由於只是零散的細節,所以文筆上沒有花什麼功夫,可能會比較亂,但應該能夠理解;-))。如果:1. 你有下面問題的更好解決方