 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18100 |
引用: 最初由 reane86 發表
請問,
K05:"KD+.今關K#MIN5";
K15:"KD+.今關K#MIN15";
K30:"KD+.今關K#MIN15";
K60:"KD+.今關K#MIN15";
如何將 K05 , K15 , K30 , K60 的值, 顯示於解盤? 並依值大小排序呢?
謝謝!
解盤輸出排序範例:
原碼:
K05:"KD+.今關K#MIN5";
K15:"KD+.今關K#MIN15";
K30:"KD+.今關K#MIN30";
K60:"KD+.今關K#MIN60";
S1:=(K05+K15+K30+K60)*0;
S2:=S1; S3:=S1; S4:=S1;
ItemNum:=4; TmpAry:=C*0;
if datacount<ItemNum then exit;
for i=lbound(S1) to datacount do begin
TmpAry[1]:=K05[i]; TmpAry[2]:=K15[i];
TmpAry[3]:=K30[i]; TmpAry[4]:=K60[i];
x:=SORTPOS(TmpAry,0,1,ItemNum);
S1[i]:=TmpAry[1]; S2[i]:=TmpAry[2];
S3[i]:=TmpAry[3]; S4[i]:=TmpAry[4];
end;
EXPLAINEX(S1=1,'K05: ',K05,2,0);
EXPLAINEX(S1=2,'K15: ',K15,2,0);
EXPLAINEX(S1=3,'K30: ',K30,2,0);
EXPLAINEX(S1=4,'K60: ',K60,2,0);
EXPLAINEX(S2=1,'K05: ',K05,2,0);
EXPLAINEX(S2=2,'K15: ',K15,2,0);
EXPLAINEX(S2=3,'K30: ',K30,2,0);
EXPLAINEX(S2=4,'K60: ',K60,2,0);
EXPLAINEX(S3=1,'K05: ',K05,2,0);
EXPLAINEX(S3=2,'K15: ',K15,2,0);
EXPLAINEX(S3=3,'K30: ',K30,2,0);
EXPLAINEX(S3=4,'K60: ',K60,2,0);
EXPLAINEX(S4=1,'K05: ',K05,2,0);
EXPLAINEX(S4=2,'K15: ',K15,2,0);
EXPLAINEX(S4=3,'K30: ',K30,2,0);
EXPLAINEX(S4=4,'K60: ',K60,2,0);
|
|
向版主報告此篇 |  |
|
2013-11-13 14:35 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|