·Éºü¹«Ê½F10×ÊÁϲéÕÒ

½«ÁÙʱµÄÏÔʾÓï¾ä¸Ä±äһϣ¬¼ÓÉÏÄãϲ»¶µÄÑÕÉ«±ê×¢£¬µ÷ÕýºÃÏÔʾµÄλÖã¬Ò»¸ö¹«Ê½¾Íµ®ÉúÁË¡£È«²¿¹«Ê½ÈçÏ£º

{F10Ê®´óÁ÷ͨ¹É¶«}

VARIABLE:GDW[10]=0,GDT[10]='STR';
GDW0:=F10FIND('¡¾Ê®´óÁ÷ͨ¹É¶«¡¿',30000);
IF GDW0<0 THEN EXIT;
GDW[1]:=F10FIND('1',GDW0+100),LINETHICK;
GDT[1]:='1.'+F10TEXT(GDW[1]+3,26);
FOR j=2 TO 10 DO BEGIN
   XH:=RTRIM(LTRIM(NUMTOSTR(j,0)));//½«jת»»Îª×Ö·ûµÄÐòºÅ
   GDW[j]:=F10FIND(' '+XH+'©¦',GDW[1]+75);//È¡×Ö·û´®ËùÔÚλÖÃ
   IF j<10 THEN GDT[j]:=XH+'.'+F10TEXT(GDW[j]+4,26);//È¡×Ö·û´®
END;
//²¹Î´È¡È«µÄ×Ö·û´®
FOR i=1 TO 9 DO BEGIN
   WT:=GDW[i+1]-GDW[i];//¼ÆËãÇ°ºó¹É¶«Î»ÖõIJî
   IF WT>120 THEN BEGIN//µ±²î³¬¹ýÒ»¶¨±ê׼ʱִÐÐÏÂÃæÓï¾ä
      TW:=F10FIND('©¦',GDW[i]+75),LINETHICK;//È·¶¨Ëù²î×Ö·ûµÄÆðµãλÖÃ
      T:=F10TEXT(TW+2,26);//½ØÈ¡Ëù²î×Ö·û
      GDT[i]:=RTRIM(GDT[i])+LTRIM(T);//Ç°ºó×Ö·ûºÏ²¢
   END;
END;
GDT[10]:='10.'+F10TEXT(GDW[10]+5,26);
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[1]>1,10,GDT[1]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[2]>1,8,GDT[2]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[3]>1,6,GDT[3]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[4]>1,4,GDT[4]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[5]>1,2,GDT[5]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+55=BARPOS AND GDW[6]>1,10,GDT[6]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+55=BARPOS AND GDW[7]>1,8,GDT[7]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+55=BARPOS AND GDW[8]>1,6,GDT[8]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+55=BARPOS AND GDW[9]>1,4,GDT[9]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+55=BARPOS AND GDW[10]>1,2,GDT[10]),COLOR74AFFF;
0,COLORBLACK;

¼ÙÈçÄãÐèÒª½«ÆäÏÔʾÔÚ½âÅÌÖУ¬¿ÉʹÓýâÅ̺¯Êý£ºEXPLAIN(GDW[1]>1,GDT[1]),COLOR74AFFF;

ÄãÊÔÒ»ÊÔ£¬ÄãÒ²¿ÉÒÔËæÐÄËùÓûµØ±àдF10×ÊÁϲéÕÒ¹«Ê½ÁË¡£

¹²3Ò³: ÉÏÒ»Ò³ [1] [2] 3 ÏÂÒ»Ò³