Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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½áβ
      ˵Ã÷ ²»Çø·Ö´óСд
 &


Ïà¹ØÎĵµ£º

DelphiʵÏÖ²Ù×÷ExcelʾÀý

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 ......

DelphiÊý¾Ý¿â´¦Àí 1


µÚÒ»½Ú BDE¡¢ADO¡¢InterBaseºÍdbExpress
    DelphiÖд¦ÀíÊý¾Ý¿âÖ÷ÒªÓÐÁ½ÖÖ·½·¨£¬Ò²¾ÍÊÇBDE¡¢ADO£¬´ÓDelphi 6.0¿ªÊ¼»¹¼ÓÈëÁËÒ»ÖÖdbExpress·½·¨¡£ ÁíÍ⣬Delphi»¹ÌṩÁËרÃÅ´¦ÀíBorland ¹«Ë¾×Ô¼ºµÄÊý¾Ý¿â²úÆ·InterBase Êý¾Ý¿âµÄרÃŵķ½·¨¡£
    BDE£¨Borland Databas Engine£©£¬ ÊÇDelph ......

DelphiµÄ·¢Õ¹·½Ïò

¶Á“Delphi2010,DELPHIµÄÏ£Íû?”ÓиÐ
 
Ô­ÎÄ£ºhttp://www.gowjq.com/forum-29-1.html
 
 
1£©  Ê¢´óµÄÖ÷Òª¿ª·¢¹¤¾ßÊÇDelphi, Ïê¼û£º http://act.sdo.com/Delphi/£¬ ÓÎÏ·ÊÇÒ»ÖÖ¸´ÔÓ½»»¥½çÃæµÄ¿ª·¢£¬Delphi¿ÉÒÔʤÈΡ£Í¬Ñù×÷ΪÆóÒµÓ¦ÓõÄǰ¶Ë£¬ÓÃDELPHI¿ª·¢Ò²ÊǺܺõÄÑ¡Ôñ¡£
2£©  Ò ......

delphi×ÊÁÏ

1.·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨
{ ·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨(¶Ô¸¶Ë«»º³åÎÞЧʱ) }
  Perform($000B, 0, 0); //ËøÆÁÄ»  ·ÀÖ¹ÉÁ˸
  // ×öһЩ»á·¢ÉúÑÏÖØÉÁ˸µÄÊÂÇé..
  //½âËøÆÁÄ»²¢ÖØ»­
  Perform($000B, 1, 0);
  RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + R ......

DelphiÖС°Á÷¡±µÄÀûÓà EXE¼ÓÃÜ|µç×Ӻؿ¨


Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷   
ÔÚDelphiÖУ¬ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀ࣬ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£   
TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏ£º   
1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£   
2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ