获取打印页号列表
2021/5/20 18:25:22
本文主要是介绍获取打印页号列表,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!
获取打印页号列表procedure SplitCommaCross(aList: TStrings); procedure SPlitCross(aList: TStrings); var LList: TStrings; a,b: Integer; i: Integer; begin if Pos('-', aList.Text) < 2 then Exit; LList := TStringList.Create; ExtractStrings(['-'], [' '], PChar(aList.Text), LList); if LList.Count = 2 then begin aList.Clear; a := StrToIntDef(LList[0], 0); b := StrToIntDef(LList[1], -1); for i := a to b do aList.Add(IntToStr(i)); end; LList.Free; end; var LList,RList: TStrings; s: string; begin aList.CommaText := Trim(aList.Text); LList := TStringList.Create; RList := TStringList.Create; for s in aList do begin LList.Text := Trim(s); SPlitCross(LList); RList.AddStrings(LList); end; aList.Assign(RList); LList.Free; RList.Free; end; //测试 var str: string; List: TStrings; begin str := '1-3,5-6,8'; List := TStringList.Create; List.Text := Trim(str); SplitCommaCross(List); ShowMessage(List.Text); //1 2 3 5 6 8 List.Free; end;
posted on 2011-06-28 11:18 万一 阅读(1589) 评论(1) 编辑 收藏
这篇关于获取打印页号列表的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-05-15鸿蒙生态设备数量超8亿台
- 2024-05-13TiDB + ES:转转业财系统亿级数据存储优化实践
- 2024-05-09“2024鸿蒙零基础快速实战-仿抖音App开发(ArkTS版)”实战课程已上线
- 2024-05-09聊聊如何通过arthas-tunnel-server来远程管理所有需要arthas监控的应用
- 2024-05-09log4j2这么配就对了
- 2024-05-09nginx修改Content-Type
- 2024-05-09Redis多数据源,看这篇就够了
- 2024-05-09Google Chrome驱动程序 124.0.6367.62(正式版本)去哪下载?
- 2024-05-09有没有大佬知道这种数据应该怎么抓取呀?
- 2024-05-09这种运行结果里的10.100000001,怎么能最快改成10.1?