随笔分类 -  Delphi_技巧

解决粘贴中文字符串乱码问题
摘要：if ((ssCtrl in Shift) AND (Key = ord('V'))) then begin i_xm.Clear; str:=Trim(clipboard.AsText); i_xm.Text:=UTF8Decode(str); end; 阅读全文

posted @ 2015-12-09 09:46 步三少 阅读(479) 评论(0) 推荐(0)

向粘贴板复制数据
摘要：uses clipbrd; clipboard.clear; clipborad.astext:=''; 阅读全文

posted @ 2009-05-13 09:38 步三少 阅读(203) 评论(0) 推荐(0)

数字转换大写人民币的delphi实现
摘要：之前用Access作一个应用，但找不到货币转换成大写人民币的功能（当然可以通过excel 转换，但不在一个应用上，放弃）。以为比较简单，自己试写，谁知用了两个晚上，才基本实现，但没有小数点（元）以下货币的转换。也没有兆的判断。而且对字符的合法性也没有检验。今天有时间，将其完善一下。（可能还会有考虑不... 阅读全文

posted @ 2008-09-26 17:44 步三少 阅读(856) 评论(3) 推荐(0)

重复登录窗体的实现(非原创)
摘要：之前自己一直是在loginform窗体中写判断语句，用户名及密码有错的话，不能重新显示该窗体。 参考其他网友的做法，在主窗体的oncreate事件中动态创建loginform.并在Mainform中的oncreate事件来判断登录的正确性。可以重复调用loginform.showmodal事件。 ... 阅读全文

posted @ 2008-07-20 21:06 步三少 阅读(384) 评论(2) 推荐(0)