¹ØÓÚdelphi×Ö·û´®µÄÎÊÌ⣡
´ÓÊý¾ÝÀï¶Á³öһЩÊý¾Ý·Åµ½Ò»¸ölistviewÀï È»ºóÓû§ÒªËÑË÷¡®Åܳµ¡¯ ÎÒ¾ÍÒª°ÑÖ»ÒªÓÐÅܳµ×ÖÑÛµÄÊý¾Ý¶¼È¡³öÀ´±ÈÈ硯·¨ÀÀûÅܳµ¡® ÇëÎÊ Õâ¸ö×Ö·û´®Ôõô±È½Ïѽ£¿ ²»ÄÜÔÚÊý¾Ý¿âÀïд´æ´¢¹ý³ÌÀ´È¡£¬Ö»ÄÜÔÚµ±Ç°µÄlistviewÀïÈ¡£¬Êý¾Ý¿â²»¹éÎÒÃǹÜ
СµÜÐÂÊÖ ¸ßÊÖ¼ûЦ O(¡É_¡É)O~
uses
StrUtils;
var
S, SubStr: string;
I: integer;
begin
S := '·¨ÀÀûÅܳµ';
SubStr := 'Åܳµ';
I := PosEx(SubStr, S, 0); //´ÓµÚNλ¿ªÊ¼²éÕÒ,»òÕßÓÃPos(SubStr, S)
if I >= 0 then //ÕÒµ½Æ¥ÅäµÄ×Ö·û´®
begin
//...
end;
end;
Â¥ÉϵĻشðºÜ²»´í£¡ÎÒÀ´ÍíÁË£¡¹þ¹þ£¡
»ØÌû¾ÍÓз֣¡£¡
»ØÌû¾ÍÓз֣¡£¡
Ïà¹ØÎÊ´ð£º
type SFPRDA=packed record
¡¡¡¡¡¡¡¡¡¡¡¡czmm:Word;¡¡¡¡¡¡¡¡¡¡¡¡//²Ù×÷ÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sqcz:array[1..8] of packed record dm:Byte; mm:Word end;¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//8¸öÊÚȨ²Ù×÷Ô ......
[size=18px]var s,n:integer;
begin
write('ÊäÈë±ä³¤µÄÌõÊýn');
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6; //±¾ÐÐÌæ»»Îªs:=n*(n-1)*(n-2)/ ......
ÎÒÏ뽫c#дµÄ¿Ø¼þǶµ½Delphi7µÄFormÖÐÏÔʾ£¬µ«ÊÇʼÖÕÊÇÃ»×ø³É£¬ÎÒͨ¹ýµ¼ÈëtlbÎļþ£¬¿ÉÒÔͨ¹ýc#дµÄ½Ó¿Ú£¬ÊµÏÖÔÚDelphiÖÐÏÔʾһ¸ö´°Ì壬µ«ÊÇÏÔʾµÄÖ»ÊÇÔÚ×ÀÃæÉϸ¡¶¯µÄ´°Ì壬ÎÞ·¨½«ËûµÄ¸¸ÈÝÆ÷Ö¸¶¨ÎªDelphiµÄForm£¬ÎÒÏë ......
project project3.exe raised exception class ERemotableException with message 'access violation at address 004037B in module'project2.exe'.read of address 00000003'.process stopped.use ......
Çó delphi webserivice µ÷ÓÃÀý×Ó
·þÎñ¶Ë±àд£ºÐ½¨"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"ÌîдÄãÒªµÄ·þÎñÃû£¬Èç"SendS ......