06 2009 档案

软件项目-快速简码查询之汉字处理

摘要：Function GetStr(var Str:String;ADOQ:TADOQuery):TWbStr;var c,s,y,wb1,py1:AnsiString; i:Integer; a:integer; PR_WB:TWbStr;begin wb1:=''; py1:=''; s:=''; c:=trim(Str); a:=1; for i:=1 to Length(c) do begin... 阅读全文

posted @ 2009-06-10 00:21 墨者工作室 阅读(450) 评论(0) 推荐(0) 编辑 |

判断字符是否是汉字

摘要：procedure TForm1.Button1Click(Sender: TObject);var s:AnsiString; i:Integer; IsNumber:boolean;begin s:=Edit1.Text; if StrToIntDef(S, 0) = StrToIntDef(S, 1) then ShowMessage(S+' 是整数字符串 '); IsNumber := ... 阅读全文

posted @ 2009-06-10 00:13 墨者工作室 阅读(455) 评论(0) 推荐(0) 编辑 |

牢固你的人际关系三十六计

摘要：第1计：如何懂得“听人说话”是受别人欢迎的前提。　　第2计：只有善于展示“真实的自己”，才能更加吸引别人对自己的注意力。　　第3计：初次交往的成败关键是适当的寒暄。　　第4计：赢得别人对自己的信任必须先做给别人看。　　第5计：与人交往注意不要过于亲密，保持适当的距离，有助于友谊的持久。　　第6计：微笑是增进人际关系的宝贵财富。　　第7计：记住对方的姓... 阅读全文

posted @ 2009-06-01 23:34 墨者工作室 阅读(303) 评论(0) 推荐(0) 编辑 |

12句让人心疼的话

摘要：1、有些事，我们明知道是错的，也要去坚持，因为不甘心；有些人，我们明知道是爱的，也要去放弃，因为没结局；有时候，我们明知道没路了，却还在前行，因为习惯了。 　　2、以为蒙上了眼睛，就可以看不见这个世界；以为捂住了耳朵，就可以听不到所有的烦恼；以为脚步停了下来，心就可以不再远行；以为我需要的爱情，只是一个拥抱。 　　3、那些已经犯过的错误，有一些是因为来不及，有一些是因为刻意躲避，更多的时候是茫然地... 阅读全文

posted @ 2009-06-01 23:22 墨者工作室 阅读(239) 评论(0) 推荐(0) 编辑 |

Copyright © 2024 墨者工作室
Powered by .NET 8.0 on Kubernetes