摘要: var Source,Dest: string;begin Source := '123456789'; Dest := '---------'; Move(Source[5], Dest[3], 4); ShowMessage(Dest); {--5678---}end; 阅读全文
posted @ 2009-09-18 17:10 delphi中间件 阅读(173) 评论(0) 推荐(0) 编辑