ÇóÖúdelphiÖÐposº¯ÊýµÄÑ»·Ê¹Ó÷½·¨
ÔÚmemo¿Ø¼þÖÐÓÐÈçÏÂÄÚÈÝ£º
5656565656565656
123456123+QQ64
+QQefe349ejrelre
+QQ683163269077F7000801124F60597D002053D1
.......
ABCDEFERFD+QQFEREFEF
..................
ÇóÖúposº¯ÊýµÄ¹¦ÄÜ£¬ÔõÑùÑ»·ÅжÏ+QQ³öÏÖ¹ýn´Î£¬È»ºóÈ¡³ö£º+QQºóµÄÄÚÈÝ˳Ðò·µ»Ø¸øLabel1.Caption-Labeln.Caption£¬n=+qq³öÏֵĴÎÊý¡£
ÀýÈ磺
+QQ123123
....
+QQ321321
....
+QQ123331
....
+QQnnnn12
Ôò·µ»Ø£º
Label1.Caption £º= ¡®23¡¯£»
Label2.Caption £º= ¡®21¡¯£»
Label3.Caption £º= ¡®31¡¯£»
Labeln.Caption £º= ¡®12¡¯£»
ÄǸö¸ßÊÖ¸ø°ïÏÂæ£¡Ð»Ð»ÁË£¡×îºÃ¿ÉÒÔ¸ø¸ömemos!
PosEx
Â¥ÉϵĴó¸ç£¬¿ÉÒÔ¾ßÌåµãÂð£¿
ÎÒÈ¥²é²éPosExʹÓ÷½·¨
posexÖ§³Ö´Óij¸öλÖÿªÊ¼ËÑ
iPos := PosEx(SubStr, SourceStr, iPos + Length(SubStr) + 1);
Delphi(Pascal) code:
uses
StrUtils;
var
iPos: Integer;
SubStr, SourceStr: String;
begin
SubStr := 'qq';
SourceStr := 'qq000qq111qq222qq333qq';
iPos := PosEx(SubStr, SourceStr);
while iPos >= 0 do begin
//Êä³öiPos
ShowMessage(Copy(SourceStr, iPos, Length(SubStr)));
if iPos + Length(SubStr) + 1 > Length(SourceSt
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......