2013年5月25日
分享一个函数GetStr
摘要： Function GetStr(STR_Source,STR_Start,STR_End:String):STring; Var I:Integer; S:String; begin for I := Pos(STR_Start,STR_Source)+Length(STR_Start) to Length(STR_Source) do begin if STR_Source[i]=STR_End then Break; S:=S+STR_Source[i]; end; Result:=S; ... 阅读全文
posted @ 2013-05-25 15:11 似水@流年 阅读(1103) 评论(0) 推荐(0)
悠悠记得当天笑 仿佛入迷 又带一点惘 种种喜悦 令人为你鼓掌 眉飞色舞千千样 你是个妙人 是个少年狂