2019年4月8日
查询字符串第一次出现的数字
摘要： var str, lnum: string; i, flag: Integer;begin str := 'er12rr3456'; flag := 0; i := 1; while i < Length(str) do begin if str[i] in ['0'..'9', '.'] then 阅读全文
posted @ 2019-04-08 11:03 快乐的正能量 阅读(544) 评论(0) 推荐(0)