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½áβ
˵Ã÷ ²»Çø·Ö´óСд
&
Ïà¹ØÎĵµ£º
uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(T ......
DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀÁбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......
Èç¹û²ÎÊýÔÚº¯ÊýÖв»¿ÉÄÜÐÞ¸Ä, Ò»¶¨ÒªÊ¹Óà const;
²»È», ±àÒëÆ÷¾Í»á:
¼Ù¶¨ÏÈÐÞ¸Ä, ÏÈÒª±¸·Ý; ʹÓÃǰºóÒªÔö¼õÒýÓüÆÊý; »¹ÒªÌ×ÉÏ try finally.
Ö¸¶¨ÁË const ¾Í¿ÉÒÔ±ÜÃâÒÔÉϹý³Ì´Ó¶øÌá¸ßЧÂÊ.
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ......
http://hi.baidu.com/rainbow_chaser/blog/item/7eb5f001c0d864e508fa93ac.html
1.·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨
{ ·ÀֹˢÐÂʱÉÁ˸µÄÖÕ¼«½â¾ö°ì·¨(¶Ô¸¶Ë«»º³åÎÞЧʱ) }
Perform($000B, 0, 0); //ËøÆÁÄ» ·ÀÖ¹ÉÁ˸
// ×öһЩ»á·¢ÉúÑÏÖØÉÁ˸µÄÊÂÇé..
//½âËøÆÁÄ»²¢ÖØ»
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, ......
Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖУ¬ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀ࣬ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£
TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏ£º
1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£
2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖà ......