DelphiÖеÄÈÝÆ÷Àà
DelphiÖеÄÈÝÆ÷Àà
×÷Õß ³ÂÊ¡
´ÓDelphi 5¿ªÊ¼VCLÖÐÔö¼ÓÁËÒ»¸öеÄContnrsµ¥Ôª£¬µ¥ÔªÖж¨ÒåÁË£¸¸öеÄÀ࣬ȫ²¿¶¼ÊÇ»ùÓÚ±ê×¼µÄTList Àà¡£
TList Àà
TList Ààʵ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔ´æ´¢Ö¸ÕëµÄÈÝÆ÷À࣬ÌṩÁËһϵÁеķ½·¨ºÍÊôÐÔÀ´Ìí¼Ó£¬É¾³ý£¬ÖØÅÅ£¬¶¨Î»£¬´æÈ¡ºÍÅÅÐòÈÝÆ÷ÖеÄÀ࣬ËüÊÇ»ùÓÚÊý×éµÄ»úÖÆÀ´ÊµÏÖµÄÈÝÆ÷£¬±È½ÏÀàËÆÓÚC++ÖеÄVectorºÍJavaÖеÄArrayList£¬TList ¾³£ÓÃÀ´±£´æÒ»×é¶ÔÏóÁÐ±í£¬»ùÓÚÊý×éʵÏֵĻúÖÆÊ¹µÃÓÃÏÂ±ê´æÈ¡ÈÝÆ÷ÖеĶÔÏó·Ç³£¿ì£¬µ«ÊÇËæ×ÅÈÝÆ÷ÖеĶÔÏóµÄÔö¶à£¬²åÈëºÍɾ³ý¶ÔÏóËÙ¶È»áÖ±ÏßϽµ£¬Òò´Ë²»ÊÊºÏÆµ·±Ìí¼ÓºÍɾ³ý¶ÔÏóµÄÓ¦Óó¡¾°¡£ÏÂÃæÊÇTListÀàµÄÊôÐԺͷ½·¨ËµÃ÷£º
ÊôÐÔ
ÃèÊö
Count: Integer;
·µ»ØÁбíÖеÄÏîÄ¿Êý
Items[Index: Integer]: Pointer; default
ͨ¹ýÒÔ£°Îªµ×µÄË÷ÒýϱêÖ±½Ó´æÈ¡ÁбíÖеÄÏîÄ¿
·½·¨
ÀàÐÍ
ÃèÊö
Add(Item: Pointer): Integer;
º¯Êý
ÓÃÀ´ÏòÁбíÖÐÌí¼ÓÖ¸Õë
Clear;
¹ý³Ì
Çå¿ÕÁбíÖеÄÏîÄ¿
Delete(Index: Integer);
¹ý³Ì
ɾ³ýÁбíÖжÔÓ¦Ë÷ÒýµÄÏîÄ¿
IndexOf(Item: Pointer): Integer;
º¯Êý
·µ»ØÖ¸ÕëÔÚÁбíÖеÄË÷Òý
Insert(Index: Integer; Item: Pointer);
¹ý³Ì
½«Ò»¸öÏîÄ¿²åÈëµ½ÁбíÖеÄÖ¸¶¨Î»ÖÃ
Remove(Item: Pointer): Integer;
º¯Êý
´ÓÁбíÖÐɾ³ýÖ¸Õë
Ãû³Æ
ÀàÐÍ
ÃèÊö
Capacity: Integer;
property
¿ÉÒÔÓÃÀ´»ñÈ¡»òÉ趨Áбí¿ÉÒÔÈÝÄɵÄÖ¸ÕëÊýÄ¿
Extract(Item: Pointer): Pointer;
function
Extract ÀàËÆÓÚRemove ¿ÉÒÔ½«Ö¸Õë´ÓÁбíÖÐɾ³ý£¬²»Í¬µÄÊÇ·µ»Ø±»É¾³ýµÄÖ¸Õë¡£¡¡
Exchange(Index1, Index2: Integer);
procedure
½»»»ÁбíÖÐÁ½¸öÖ¸Õë
First: Pointer;
function
·µ»ØÁ´±íÖеĵÚÒ»¸öÖ¸Õë
Last: Pointer;
function
·µ»ØÁ´±íÖÐ×îºóÒ»¸öÖ¸Õë
Move(CurIndex NewIndex: Integer);
procedure
½«Ö¸Õë´Óµ±Ç°Î»ÖÃÒÆ¶¯µ½ÐµÄλÖÃ
Pack;
procedure
´ÓÁбíÖÐɾ³ýËùÓÐnilÖ¸Õë
Sort(Compare: TListSortCompare);
procedure
ÓÃÀ´¶ÔÁ´±íÖеÄÏ
Ïà¹ØÎĵµ£º
The built-in assembler allows you to write assembly code within Delphi programs. It has the following features:
ÄÚǶµÄ»ã±àÆ÷ÔÊÐíÔÚdelphi³ÌÐòÖÐÊéд»ã±à´úÂ룬ËûÓÐÈçÏÂÌØÐÔ£º
Allows for inline assembly
ÔÊÐíÄÚǶ»ã±à
Supports all instructions found in the Intel Pentium III, In ......
procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SendMessage(Handle, 48384, 9, 0);
end;
end; ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,comobj, OleServer,
ExcelXP;
type
TForm1 = class(TForm)
ADOConn: TADOConnection;
& ......
unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
......
2009-12-01 00:41:35
֮ǰ°²×°ÁËoracle 10g£¬ºóÀ´ÎªÁËÔÚC#ÀïÃæÁ¬½Óoracle£¬°²×°ÁËODAC£¬Ö®ºóÁ¬½ÓÊý¾Ý¿âʱ£¬ÌîдÊý¾Ý¿â·þÎñÃû£¬×ÜÊÇ»á³ö´í£¬Á¬½Ó²âÊÔÎÞ·¨Í¨¹ý£¬²»ÌîÊý¾Ý¿â·þÎñÃû£¬µ¹»¹¿ÉÒÔͨ¹ýÁ¬½Ó²âÊÔ
½ñÍíÖÕÓڲ鵽ÔÒòÁË¡£¡£¡£
ϵͳÊôÐÔÄÇÀïµÄ»·¾³±äÁ¿£¬pathÕâÀoracleµÄÁ½¸öĬÈÏ·¾¶£º
d:\oracle\product\10. ......