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

Delphi С̸֮TList ƪ

×î½ü¿ª·¢³ÌÐòÐèҪʹÓÃTList¹¦ÄÜ£¬×ªÔØ´ËÎÄÕ£¬ÒÔ×÷²Î¿¼¡£
¿´ÁËÕâÀï±êÌ⣬´ó¼Ò¿ÉÄÜÒÔΪÎÒ»á̸TListBox¿Ø¼þ£¬ÄǾʹíÁË¡£ÎÒҪ̸µÄÊÇDelphiÌṩ¸øÎÒÃǵľßÓÐÁбíÐÔÖʵÄÀࣺTstringList¡¢TListºÍTObjectList¡£TstringListÓÃÀ´´æ·Å×Ö·û´®£¬TList´æ·ÅÖ¸Õ룬¶øTObjectListÔò´æ·Å¶ÔÏó(Object)¡£
ÔÚÎÒÃÇʹÓÃDelphi µÄ¹ý³ÌÖУ¬ÓкܶàÊý¾ÝµÄ´æ´¢ÊÇÒª¿¿Êý×é½â¾öµÄ¡£ËäÈ»DelphiÏÖÔÚÒѾ­Ö§³ÖÁ˿ɱäÊý×飬²»¹ý×ÜÓÐÄÇôµãȱÏÝ£ºÎÒÃDz»ÄÜÔÚɾ³ýÒ»¸öÏîºó£¬Ê¹ºó±ßµÄÏî×Ô¶¯Ç°¿¿¡£Òò´Ë£¬ËµËµDelphiÏֳɵÄList»¹ÊÇÓмÛÖµµÄ¡£
TstringList £¨Classes.pas£©
ÔÚTstringListÀÄÇЩString±»Ò»ÐÐÒ»Ðеش¢´æ¡£TstringList.Text·µ»ØÈ«²¿µÄString¡£Èç¹ûµÚÒ»¡¢¶þ¡¢ÈýÐзֱðÊÇ\'aa\'¡¢\'bb\'¡¢\'cc\' µÄ»°£¬ÄÇôText ·µ»ØµÄÊÇ“\'aa\'+#13#10+\'bb\'+#13#10+\'cc\'+#13#10” £¨²»°üÀ¨Ë«ÒýºÅ£©¡£ËùÓеÄString¶¼±»TstringListÓûسµºÍ»»Ðзû£¨#13#10£©Á¬½ÓÁËÆðÀ´¡£Èç¹ûÒÀ´ÎÏòText¸³ÖµµÄ»°£¬Text¾Í»á±»×Ô¶¯µØ·Ö¸î³ÉÐд¢´æÔÚTstringList Àï¡£Õâ³ä·ÖµØÌåÏÖ³öTstringListµÄÒ»¸öºÜʵÓõļÛÖµ£ºËüÄÜÈÃÎÒÃÇÖðÐд¦ÀíString¡£¼ÙÈçÎÒÃÇÒª²Ù×÷µÚ4ÐУ¬Ö»Ðè²Ù×÷TstringList[3]¡£ÏàÐÅ´ó¼Ò»áÎÊ£¬TstringListÃ÷Ã÷ÊÇÒ»¸öÀ࣬ΪʲôÄܵ±Êý×éÄÇÑù×ÓÓÃÄØ£¿Æäʵ£¬ÎÒÃÇÔÚдTstringList[3]µÄʱºò£¬¾ÍÊÇÔÚдTstringList.Strings[3]¡£StringsÊÇTstringListµÄÒ»¸öȱʡÊôÐÔ¡£Êý×éÐÔµÄȱʡÊôÐÔ¾ÍÊÇÕâÑù×ÓʹÓõġ£Èç¹û´ó¼ÒÔÚ±àдÀàµÄʱºòÒªÓõ½Õâôһ¸ö¹¦Äܵϰ£¬¿ÉÒÔ²ÎÕÕÈçÏ·½·¨£º
property AProperty[I: Integer] read *** write ***;
default;¡£
Strings ÊÇÒ»¸ö¿É¶ÁдµÄÊôÐÔ¡£ÕâÒ²¾ÍÊÇ˵£¬´ó¼Ò²»½ö¿ÉÒÔ»ñµÃµÚN ÐеÄÄÚÈÝ£¬Ò²¿ÉÒԸıäµÚN ÐеÄÄÚÈÝ¡£Òò´ËÎÒÃÇÐèÒªÖªµÀTstringList ÀïS t r i n g µÄ×ÜÐÐÊý¡£TstringListµÄÊôÐÔCountÔò¿ÉÒÔÂú×ãÎÒÃǵÄÐèÒª¡£
ÉÏÃæÒѾ­Ëµ¹ý£¬TextÊÇÒ»¸ö·µ»ØËùÓÐ×Ö·û´®µÄÊôÐÔ¡£ÏòText¸³ÖµÊ±£¬TstringListÄܹ»×Ô¶¯µØ°ÑText·Ö³ÉÒ»ÐÐÒ»Ðеģ¬È»ºó´¢´æÔÚTstringListÀµ±È»£¬TstringListÀïÃæ²¢²»ÍêÈ«ÊÇÕâô´¢´æµÄ£¬Ïêϸ¹ý³Ì½¨Òé¿´TstringListºÍTStringsµÄ´úÂ룩¡£ÕâÑù£¬Strings·µ»ØµÄ×Ö·û´®¾ÍÊÇû
ÓлسµºÍ»»Ðеġ£µ«ÊÇ£¬Èç¹ûÎÒÃÇÏòStrings¸³ÖµµÄ×Ö·û´®ÓлسµºÍ»»ÐУ¬ÄÇô»á³öÏÖʲôÇé¿öÄØ£¿´Ëʱ£¬Strings¾Í»á°ÑÄǸö×Ö·û´®¶Ï³É¼¸ÐУ¬²åÈëµ½Ô­À´µÄλÖÃÉÏ¡£Èç¹ûTstringListÖ»ÓÐÕâôЩ¹¦Äܵϰ£¬ÄÇÎҾͲ»±Ø×¨ÃÅÄóöÀ´½²ÁË——ÎÒÊÇ˵£¬TstringListÄÜÈÃÎÒÃÇÈÎÒâ
µØ²åÈ


Ïà¹ØÎĵµ£º

³õ̽DelphiÖеIJå¼þ±à³Ì


ǰÑÔ 
¡¡¡¡ÎÒдDelphi³ÌÐòÊÇ´ÓMISϵͳÈëÃŵģ¬¿ªÊ¼³¢ÊÔ×Óϵͳ»®·ÖµÄʱºò²ÉÓõÄÊÇMDI´°ÌåµÄ½á¹¹¡£Ëæ×Åϵͳ¹¦ÄܵÄÀ©³ä£¬²»¶ÏÓÐеÄ×Óϵͳ¼ÓÈëϵͳÖУ¬µ¥¸ö¹¤³Ì»á±äµÃ·Ç³£´ó£¬Ã¿´Î×öÒ»µãÐ޸Ķ¼ÒªÖØÐ±àÒ룬µ¥¸ö¹¤³ÌµÄÐÎʽҲ²»ÀûÓÚÍŶÓЭ×÷¡£ÎªÁËÌá¸ß¹¤×÷ЧÂÊ£¬ÎÒÏ£ÍûÀûÓÃDLL¶¯Ì¬Á´½Ó¿âµÄÐÎʽʵÏÖ²å¼þ½á¹¹µÄ±à³Ì¡£
¡¡¡ ......

delphi ÖеÄdelayº¯Êý

procedure Delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
    Tick := GetTickCount + DWord(msecs);
    while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <&g ......

vb µ÷ÓÃdelphiдµÄdll

delphiÖеÄDLLÖеÄÉùÃ÷Ô­ÂëÈçÏ£º
ÕâÀïÉùÃ÷ÁËÊä³öÐÔ²ÎÊý·Ö±ðΪÊý×ÖÓë×Ö·ûÀàÐÍ
library dll1;
uses
  SysUtils,
  Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
  jj := x * y;
  abc := PChar(StrPas(abc) + 'ÕâÊÇ´«³öµÄ' ......

Delphiµ÷ÓÃÍⲿ³ÌÐòÏê½â

WinExecÖ÷ÒªÔËÐÐEXEÎļþ¡£È磺
WinExec("Notepad.exe Readme.txt", SW_SHOW);
ShellExecute²»½ö¿ÉÒÔÔËÐÐEXEÎļþ£¬Ò²¿ÉÒÔÔËÐÐÒѾ­¹ØÁªµÄÎļþ¡£
Ê×ÏȱØÐëÒýÓÃshellapi.pasµ¥Ôª£ºuses ShellAPI; 
1.±ê×¼Ó÷¨ 
¡¡¡¡ ShellExecuteº¯ÊýÔ­Ðͼ°²ÎÊýº¬ÒåÈçÏ£º 
function ShellExecute(hWnd: HWND; Operati ......

(ÕÐÆ¸£©Delphi³ÌÐòÔ±ËÄÃû

ÕÐÆ¸ÈËÊý£º 4ÈË
ѧÀúÒªÇó£º ²»ÏÞ
¹¤×÷ÄêÏÞ£º ²»ÏÞ
н×Ê·¶Î§£º ÃæÒé
¹¤×÷µØµã£º ±±¾©Í¨ÖݾſÃÊ÷
Delphi³ÌÐòÔ±ËÄÃûְλҪÇó
񻂗:
1. ÊìÁ·Ê¹ÓÃDELPHI(C,C++, C#µÈ)½øÐпª·¢£»
2. ¾ßÓÐÁ¼ºÃµÄ³ÌÐò±àдϰ¹ß£»
3. ÔúʵµÄ»ù±¾¹¦£¬½á¹¹ÇåÎú¡¢ºÏÀí£»
4. Á¼ºÃµÄÖ´ÐÐÄÜÁ¦£¬½ÏºÃµÄÍê³ÉÔ¤¶¨ÈÎÎñ£»
5. ÉϽøÐÄÇ¿£¬ÄܳԿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ