delphi ÈçºÎʵÏֲɼ¯Ò»¸öÍøÒ³
delphi ÈçºÎʵÏֲɼ¯Ò»¸öÍøÒ³
ÇóÒ»¸ö²É¼¯µÄÀý×Ó
¿´Á˼¸¸öÔ´Âë ÆäÖм¸¸öµØ·½²»Ã÷°×
¶¹¶¡Íø
function TForm1.GetStr(StrSource,StrBegin,StrEnd:string):string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_sta,in_end-in_star);
end;
in_sta,in_end-in_star ¶¼Ã»¶¨Òå ËûÊÇÔõôÓõÄ
s:=copy(re,pos(' <td width="100" align="left">',re)+29,99999);
/// +29Òâ˼¾ÍÊÇǰ¹æÂɵÄ×Ö·ûÊý£¨¿ÉÒÔÓÃÎÒÌṩµÄÈí¼þ²é£© 99999ÊǹæÂÉÖеĽØÈ¡Êý¾Ý×Ö·û¡£
s:=copy(s,1,pos(' </td>',s)-1);
s:=stringreplace(s,' ',' ',[rfReplaceAll]);
Label1.Caption:='×ÛºÏÅÅÃû:'+s; /// s ¾ÍÊÇÎÒÃǽØÈ¡µ½µÄÄÚÈÝ
cpoy
ºóÃæ¼ÓµÄ 2999999ÊÇʲôÒâ˼
Çó Ïê½âµÄdelphi²É¼¯ ´úÂë
²¿·ÖÎÊÌâÒѽâ¾ö »¹ÓÐÒ»¸ö
s:=copy(re,pos(' <td width="100" align="left">',re)+29,99999);
copyµÄ º¯Êý copy ³¤¶ÈÔõô¼ÆËã ÔÚÍøÒ³ÖÐ
ÎÊÌâÒѽâ¾ö À´ÈËÁì·Ö
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
Ïà¹ØÎÊ´ð£º
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ
·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
ºÙºÙ£¬ÓÖÀ´Âé·³¸÷λ´óÅ£ÁË£¡ÎÒÏëÁ˽âÎÒÔÚ´úÂëµÄʼþÊôÐÔÀïÃæ¿´²»µ½ÓÐʲôʼþ£¬»¹ÓÐÔÚʱ¼ä¿Ø¼þÀïÃæµÄEnabledµÄÊôÐÔÊÇFalse£¬ÕâÏÂÃÉÁË£¬²»ÖªµÀ³ÌÐòÔËÐÐÖ®ºóÖ´ÐеÄÊÇÄÇÌõÃüÁϣÍû¸÷λ´óÅ£´Í½ÌÀ²£¡
лл£¡
ÎÒÕâÏ ......
×ÜÖ®£¬Õâ¸öÓ¦¸ÃÊǸöСBUG¡£
Ëæ±ã½¨¸ötxtÎĵµ
µÚÒ»ÐÐ68¸ös¼ÓÒ»¸ö»Ø³µ
µÚ¶þÐÐ98¸ös¼ÓÒ»¸ö»Ø³µ
µÚÈýÐÐ17¸ös¼ÓÒ»¸ö»Ø³µ
×ܹ²183¸ös¼ÓÈý¸ö»»ÐУ¬´óС189×Ö½Ú¡£
½Ó×ÅÓÃFileOpenºÍFileRead°ÑÎļþ ......
ÇëÎÊÔõôѧϰDelphiѽ?
·¢ÏÖDelphiÑ§Ã²ËÆÃ»ÄÇôÈÝÒ×ѽ,²»Ïñjava,ÄÇô¶àÊé,ÊÓÆµ,ºÍÅàѵ֮ÀàµÄ
delphiµÄ×ÊÁϾÍÊÇÉÙ£¬¶øÇÒ»¹ÀÏ
ÕÒ±¾Êé¿´¿´¾Í¶®ÁË¡£
DelphiµÄ×ÊÁϺֻܶ࣬ÊÇÏÖÔÚ¡¡,ÄãÕÒÕÒ´ó¸»ÎÌÀëÏßÊý¾Ý¿â° ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......