2020年9月14日
Delphi判断一个字符串是否全是相同的数字
摘要： function TForm5.is_samestr(str: string): Boolean; var total:integer; i:integer; a:string; begin total :=Length(str); Result:=true; for i := 1 to total 阅读全文
posted @ 2020-09-14 15:49 华华软件工作室 阅读(514) 评论(0) 推荐(0) 编辑