Delphi×Ö·û´®º¯Êý´óÈ«
Delphi×Ö·û´®º¯Êý´óÈ«
uses StrUtils;
¡¾×Ö·û´®º¯Êý´óÈ«¡¿
Êײ¿ function AnsiResemblesText(const AText, AOther: string): Boolean;
$[StrUtils.pas
¹¦ÄÜ ·µ»ØÁ½¸ö×Ö·û´®ÊÇ·ñÏàËÆ
˵Ã÷ ANSI(American National Standards Institute)ÃÀ¹ú¹ú¼Ò±ê׼лá;²»Çø·Ö´óСд
²Î¿¼ function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
Àý×Ó CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥
Êײ¿ function AnsiContainsText(const AText, ASubText: string): Boolean;
$[StrUtils.pas
¹¦ÄÜ ·µ»Ø×Ö·û´®ATextÊÇ·ñ°üº¬×Ó´®ASubText
˵Ã÷ ²»Çø·Ö´óСд
²Î¿¼ function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
Àý×Ó CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥
Êײ¿ function AnsiStartsText(const ASubText, AText: string): Boolean;
$[StrUtils.pas
¹¦ÄÜ ·µ»Ø×Ö·û´®ATextÊÇ·ñÒÔ×Ó´®ASubText¿ªÍ·
˵Ã÷ ²»Çø·Ö´óСд
²Î¿¼ function Windows.CompareString
Àý×Ó CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥
Êײ¿ function AnsiEndsText(const ASubText, AText: string): Boolean;
$[StrUtils.pas
¹¦ÄÜ ·µ»Ø×Ö·û´®ATextÊÇ·ñÒÔ×Ó´®ASubText½áβ
˵Ã÷ ²»Çø·Ö´óСд
&
Ïà¹ØÎĵµ£º
implementation
uses ComOBJ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ExcelAPP1:Variant;
ExcelApp2:Variant;
I,j: Integer;
ID,IDX:string;
begin
try
ExcelAPP1:=CreateOleObject('Excel.Application');
E ......
µÚÒ»½Ú BDE¡¢ADO¡¢InterBaseºÍdbExpress
DelphiÖд¦ÀíÊý¾Ý¿âÖ÷ÒªÓÐÁ½ÖÖ·½·¨£¬Ò²¾ÍÊÇBDE¡¢ADO£¬´ÓDelphi 6.0¿ªÊ¼»¹¼ÓÈëÁËÒ»ÖÖdbExpress·½·¨¡£ ÁíÍ⣬Delphi»¹ÌṩÁËרÃÅ´¦ÀíBorland ¹«Ë¾×Ô¼ºµÄÊý¾Ý¿â²úÆ·InterBase Êý¾Ý¿âµÄרÃŵķ½·¨¡£
BDE£¨Borland Databas Engine£©£¬ ÊÇDelph ......
¶Á“Delphi2010,DELPHIµÄÏ£Íû?”ÓиÐ
ÔÎÄ£ºhttp://www.gowjq.com/forum-29-1.html
1£© Ê¢´óµÄÖ÷Òª¿ª·¢¹¤¾ßÊÇDelphi, Ïê¼û£º http://act.sdo.com/Delphi/£¬ ÓÎÏ·ÊÇÒ»ÖÖ¸´ÔÓ½»»¥½çÃæµÄ¿ª·¢£¬Delphi¿ÉÒÔʤÈΡ£Í¬Ñù×÷ΪÆóÒµÓ¦ÓõÄǰ¶Ë£¬ÓÃDELPHI¿ª·¢Ò²ÊǺܺõÄÑ¡Ôñ¡£
2£© Ò ......
1.·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨
{ ·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨(¶Ô¸¶Ë«»º³åÎÞЧʱ) }
Perform($000B, 0, 0); //ËøÆÁÄ» ·ÀÖ¹ÉÁ˸
// ×öһЩ»á·¢ÉúÑÏÖØÉÁ˸µÄÊÂÇé..
//½âËøÆÁÄ»²¢ÖØ»
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + R ......
Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖУ¬ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀ࣬ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£
TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏ£º
1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£
2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖà ......