總頁數 (2): « 1 [2] 在這個頁面顯示本主題全部的 24 個文章

引用:

---

最初由 cgjj 發表

原碼:
Note:='AAAA\nBBBB\nCCCC\nDDDD\nEEEE\nGGGG\nHHHH\nIIII\nJJJJ\nKKKK\nLLLL\nMMMM';
MaxRowNum:=5; //設定最大Row數，超過此值切割顯示
ColMaxNo:=999; //設定Col數處理極限值
VARIABLE: NextColP[ColMaxNo]=0; 
ColNo:=1; NowFindP:=1; OldFindP:=1; FindLineNum:=0;
WHILE 1 do begin
  FindP:=strfind(Note,'\n',NowFindP);
  if FindP=0 then break;
  NowFindP:=FindP+strlen('\n'); FindLineNum:=FindLineNum+1;
  if FindLineNum=MaxRowNum then begin
    FindLineNum:=0; NextColP[ColNo]:=NowFindP; 
    if ColNo=ColMaxNo then break;
    ColNo:=ColNo+1;
  end;
end;
if strmid(Note,NowFindP,0)>'' then begin
  NextColP[ColNo]:=strlen(Note)+1;
end else begin
  ColNo:=ColNo-1;
end;
MSP:=40; //設定每個Col的寬度
if NextColP[1]>0 then DRAWTEXTEX(1,0,3+MSP*0,0,Strmid(Note,1,NextColP[1]-1)) coloryellow;
if NextColP[2]>0 then DRAWTEXTEX(1,0,3+MSP*1,0,Strmid(Note,NextColP[1],NextColP[2]-NextColP[1])) coloryellow;
if NextColP[3]>0 then DRAWTEXTEX(1,0,3+MSP*2,0,Strmid(Note,NextColP[2],NextColP[3]-NextColP[2])) coloryellow;
//依此類推....

---

根據您的需求，重新架構程式了

原碼:
CC:C linethick0 colorred; CC:=CC[DATACOUNT]; //最新價
XX:=CROSS(C,MA(C,20)) or barpos=0; LL:=L;
MaxItem:=100; //設定僅統計近期n組XX
ItemNum:0 linethick0; //累計XX組數
PN:=0; //設定顯示價的小數位數
MaxRowNum:=10; //設定最大Row數，超過此值切割顯示
RecXP:=C*0; RecXN:=RecXP; 
RecNum:1 linethick0; //價位數(含最新價)
RecXP[1]:=CC; RecXN[1]:=1; RN:=0;
ColWidth:='            '; //設定Col寬度(增減空白字元調整)
//註:沒有顯示Col數量的限制，視窗寬度決定能顯示的範圍。
for i=datacount downto 1 do begin
  if XX[i] then begin
    ItemNum:=ItemNum+1;
    for j=1 to RecNum do begin
      if LL[i]=RecXP[j] then begin
        RecXN[j]:=RecXN[j]+1; 
        NL:=strlen(numtostr(RecXN[j],0)); if NL>RN then RN:=NL;
        break;
      end;
    end;
    if j=RecNum+1 then begin
      RecXP[j]:=LL[i]; RecXN[j]:=1; RecNum:=RecNum+1;
    end;
  end;
  if ItemNum=MaxItem then break;
end;
PP:=RecXP; x:=SORTPOS(PP,0,1,RecNum);
VARIABLE:PR[MaxRowNum]=''; RN:=RN+1;
for i=1 to RecNum do begin
  RowN:=mod(i-1,MaxRowNum)+1;
  if PP[i]=1 then begin
    RedRowN:=RowN; RedColN:=floor((i-1)/MaxRowNum)+1; iRed:=i;
  end;
  UStr:=numtostr(RecXP[PP[i]],PN); 
  NAdd:=''; if RecXN[PP[i]]>1 then NAdd:='*'+numtostr(RecXN[PP[i]],0);
  RAdd:=strleft(ColWidth,RN-strlen(NAdd));  
  PR[RowN]:=PR[RowN]+strright(ColWidth+UStr+NAdd+RAdd,strlen(ColWidth));
end;
PrStr:=''; PrRed:='';
for i=1 to MaxRowNum do PrStr:=PrStr+PR[i]+'\n'; 
for i=2 to RedRowN do PrRed:=PrRed+' \n';
for j=2 to RedColN do PrRed:=PrRed+ColWidth;
RedStr:=numtostr(RecXP[PP[iRed]],PN);
NAdd:=''; if RecXN[PP[iRed]]>1 then NAdd:='*'+numtostr(RecXN[PP[iRed]],0);
RAdd:=strleft(ColWidth,RN-strlen(NAdd));
PrRed:=PrRed+strright(ColWidth+RedStr+NAdd+RAdd,strlen(ColWidth));
DRAWTEXTEX(1,0,3,0,PrStr) coloryellow;
DRAWTEXTEX(1,0,3,0,PrRed) colorred;

引用:

---

最初由 cgjj 發表
根據您的需求，重新架構程式了

原碼:
CC:C linethick0 colorred; CC:=CC[DATACOUNT]; //最新價
XX:=CROSS(C,MA(C,20)) or barpos=0; LL:=L;
MaxItem:=100; //設定僅統計近期n組XX
ItemNum:0 linethick0; //累計XX組數
PN:=0; //設定顯示價的小數位數
MaxRowNum:=10; //設定最大Row數，超過此值切割顯示
RecXP:=C*0; RecXN:=RecXP; 
RecNum:1 linethick0; //價位數(含最新價)
RecXP[1]:=CC; RecXN[1]:=1; RN:=0;
ColWidth:='            '; //設定Col寬度(增減空白字元調整)
//註:沒有顯示Col數量的限制，視窗寬度決定能顯示的範圍。
for i=datacount downto 1 do begin
  if XX[i] then begin
    ItemNum:=ItemNum+1;
    for j=1 to RecNum do begin
      if LL[i]=RecXP[j] then begin
        RecXN[j]:=RecXN[j]+1; 
        NL:=strlen(numtostr(RecXN[j],0)); if NL>RN then RN:=NL;
        break;
      end;
    end;
    if j=RecNum+1 then begin
      RecXP[j]:=LL[i]; RecXN[j]:=1; RecNum:=RecNum+1;
    end;
  end;
  if ItemNum=MaxItem then break;
end;
PP:=RecXP; x:=SORTPOS(PP,0,1,RecNum);
VARIABLE:PR[MaxRowNum]=''; RN:=RN+1;
for i=1 to RecNum do begin
  RowN:=mod(i-1,MaxRowNum)+1;
  if PP[i]=1 then begin
    RedRowN:=RowN; RedColN:=floor((i-1)/MaxRowNum)+1; iRed:=i;
  end;
  UStr:=numtostr(RecXP[PP[i]],PN); 
  NAdd:=''; if RecXN[PP[i]]>1 then NAdd:='*'+numtostr(RecXN[PP[i]],0);
  RAdd:=strleft(ColWidth,RN-strlen(NAdd));  
  PR[RowN]:=PR[RowN]+strright(ColWidth+UStr+NAdd+RAdd,strlen(ColWidth));
end;
PrStr:=''; PrRed:='';
for i=1 to MaxRowNum do PrStr:=PrStr+PR[i]+'\n'; 
for i=2 to RedRowN do PrRed:=PrRed+' \n';
for j=2 to RedColN do PrRed:=PrRed+ColWidth;
RedStr:=numtostr(RecXP[PP[iRed]],PN);
NAdd:=''; if RecXN[PP[iRed]]>1 then NAdd:='*'+numtostr(RecXN[PP[iRed]],0);
RAdd:=strleft(ColWidth,RN-strlen(NAdd));
PrRed:=PrRed+strright(ColWidth+RedStr+NAdd+RAdd,strlen(ColWidth));
DRAWTEXTEX(1,0,3,0,PrStr) coloryellow;
DRAWTEXTEX(1,0,3,0,PrRed) colorred;

---

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.