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

DelphiµÄHashTable

{-----------------------------------------------------------------------------
 Unit Name: HashTable
 Author:    LiuHeng
 Date:      2010-04-13
 Purpose:   ·â×°DelphiµÄHashTable
 History:
-----------------------------------------------------------------------------}
unit HashTable;
interface
uses
  Classes,IniFiles;
type
  THashTable = class(THashedStringList)
  public
    procedure AddStrItem(const ItemName: string;const ItemValue: string);
    function ObjectValue(const ObjName: string): TObject;
  end;
implementation
{ THashTable }
procedure THashTable.AddStrItem(const ItemName: string;const ItemValue: string);
begin
  Add(ItemName+'='+ItemValue);
end;
function THashTable.ObjectValue(const ObjName: string): TObject;
var
  AIndex: integer;
begin
  Find(ObjName,AIndex);
  if AIndex>=0 then
    Result := Objects[AIndex];
end;
end.


Ïà¹ØÎĵµ£º

½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ

½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ
2009Äê12ÔÂ25ÈÕ ÐÇÆÚÎå 00:45
½ÌÄãÓÃdelphiдµ¯´°¹ã¸æ²å¼þ
Òý×Ó
ĿǰԽÀ´Ô½¶àµÄ¹ã¸æ²å¼þÔÚÎÒÃǵçÄÔÉÏÔú¸ùפµØ£¬Ê±²»Ê±µØµ¯³öÁîÈËÌÖÑáµÄ¹ã¸æ£¬²¢ÇÒÿµ±ÎÒÃÇ¿ª»úµÄʱºò¶¼»áµ¯³öÀ´£¬¸ãµÄºÜ¶àС²ËÖ»ÄÜÖØ×°ÏµÍ³£¬
À´½â¾öÕâÁíÈËÌÖÑáµÄ¹ã¸æ£¡Ó°ÏìÎÒÃÇÉÏÍøÁÄÌì£¬ÍæÓÎÏ·£¬¹¤×÷µÈµÈ……º ......

Delphi TStream Ïêϸ½éÉÜ

Delphi TStream Ïêϸ½éÉÜ
Stream¶ÔÏó£¬ÓÖ³ÆÁ÷ʽ¶ÔÏó£¬ÊÇTStream¡¢THandleStream¡¢TFileStream¡¢TMemoryStream¡¢TResourceStreamºÍTBlobStreamµÈµÄͳ³Æ¡£ËüÃÇ·Ö±ð´ú±íÁËÔÚ¸÷ÖÖý½éÉÏ´æ´¢Êý¾ÝµÄÄÜÁ¦£¬ËüÃǽ«¸÷ÖÖÊý¾ÝÀàÐÍ(°üÀ¨¶ÔÏóºÍ²¿¼þ) 
ÔÚÄÚ´æ¡¢Íâ´æºÍÊý¾Ý¿â×Ö¶ÎÖеĹÜÀí²Ù×÷³éÏóΪ¶ÔÏó·½·¨£¬²¢ÇÒ³ä·ÖÀûÓÃÁËÃæÏò¶Ô ......

delphi ¼Ó×Ö·û´®Ïà¼Ó

procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
   name := edit2.Text ;
   name := '%' + name ;
   query1.Close ;
   query1.SQL.Clear ;
   query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
 &nb ......

Ò»ÃûDelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß

Óйؿª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆ­È¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ
½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
     &n ......

DelPhiÏÂÓÃCDO·¢ËÍÓÊÏäʵÀý

Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬CDO·¢ËÍÓʼþ»¹ÊǺܼò½à·½±ãµÄ
×¢£ºCDONTSΪCDOµÄ×Ó¼¯£¬½öÖ§³ÖWinNT/Win2K£¬WinXPÒÔÉÏÇëÓÃCDO;
µ¥ÔªÒýÓÃComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
  vCDOMessage:=CreateOleObject('CDO.Message');
  vcdomessage.from:='MR.F'+'< ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ