这几天拉肚子好难受啊

该日志由 samool 发表于 2007-10-25 2:45 PM

前天下午公司来了一个客户,看起来还多友善的,还拿糖出来给我们吃,是薄荷糖,我跟肉兔子把她的照片复制到电脑上,4个多G,我晕,结果只冲印了不到百张,后来她走的时候把糖留在那里,肉兔子跟她说,还有东西没有拿走,结果她放在那里,说你们吃吧,下班的时候我吃了一颗,回家路上抽了一只烟,结果把手指给烧到了,NND

昨天中午偶又吃了一颗那个薄荷糖,含在嘴里不到一分钟,就觉得肚子好难受,紧接着肚子开始痛,隐痛隐痛的,然后就是拉肚子,来回跑厕所,弄的我走路的站不稳当,脚杆打闪闪,肚子痛,还要拉,痛苦不矣。

今天虽然没拉了,但是好像人没有力气一样,软的像绵花一样,坐着就想睡觉,今天天气也怪的很,很大的雾,阴沉沉的,即不晴又不下雨,我最讨厌这种天气了,陆妹妹说我这几天瘦了,人没有精神,饭也不想吃,没味口,拉肚子拉的我脚趴手软,唉,没啥不能没钱,有啥不能有病啊,真是的,以下要注意点了,不能随便吃别人的东西,要是万一出点啥子意外,谁也说不清楚,还是希望早点好起来吧。

该日志标签: 拉肚子, 生活, 肚子痛

与月亮相关的歌曲

该日志由 samool 发表于 2007-10-25 10:21 AM

昨天晚上看“嫦娥一号”专题报道时,CCTV-4上面片头放了三首与月亮相关的音乐,第一首是王菲的《但愿人长久》,第二首是凤凰传奇的《月亮之上》,第三首是张雨生的《带我去月球》,好像片头音乐是《变形金刚》里边序幕的音乐吧,变形金刚里边那个魔方就有点像“嫦娥一号”,哈哈哈。。。

歌曲:但愿人长久
歌手:王菲 专辑:但愿人长久

歌曲:月亮之上
歌手:凤凰传奇 专辑:月亮之上


» 阅读该日志全文...

该日志标签: 月亮, 音乐, 嫦娥

傻猫说说“中文网志年会”

该日志由 samool 发表于 2007-10-25 7:36 AM

中文网志年会是中国互联网一年一届的互联网从业者、爱好者、Blogger相聚的盛会,今年已经是第三届了,将于2007年11月3、4两天在北京举行。届时很多嘉宾将受邀发表演讲,同时你也有机会在年会上认识很多互联网从业者和知名Blogger。

今天接到Feedsky的话题邀请,作为一名blogger,虽然是公益文章,我还是挺愿意参加的,中文网志年会是一个民间组织,由一群互联网从业 者,爱好者,blogger相聚的盛会,关注Web2.0的发展,关于国内博客现象,推进我国互联网发展,作为一名IT从业人员,还是很想去参加这样的大 会,但是太远了,平时要上班,根本没有时间去参加,如果是在本地聚会的,我绝对会去参加的。

» 阅读该日志全文...

该日志标签: 中文, 网络, 日志

今天收到雅虎寄来的礼品

该日志由 samool 发表于 2007-10-24 8:43 PM

9月份底参加了雅虎SEO征文比赛获得纪念奖(不是一等奖,要不然就去北京参加雅虎总部,呵呵),虽然只是纪念奖,我会继续努力的,以后有活动我会继续参加,嘿嘿,重在参与嘛。

参赛文章《浅谈搜索引擎优化SEO》

获奖公告《浅谈搜索引擎优化SEO 》,被评为“雅虎畅言SEO”征文大赛纪念奖

由于9月份经常学习网站优化方面和Google Adsense优化方面的东西,所以就随便写了一篇说说搜索引擎优化方法的经验吧,说句实话,优化与未优化前面的结果是天壤之别呀,只有不断学习SEO,学习搜索蜘蛛方面的知识,才能真正领会SEO的真谛。

来看看偶的奖品吧(可能是今天太高兴了,乐极生悲呀,中午吃了一颗糖,结果肚子痛,还拉肚子了,真郁闷)。

» 阅读该日志全文...

该日志标签: 雅虎, seo, 活动

汇编级超快字符串替换函数

该日志由 samool 发表于 2007-10-23 3:19 PM

 用这个函数进行字符串替换操作,比Delphi自带的ReplaceString要快N倍,效率一流,非常快,不愧为汇编级函数操作,哈哈.

下载函数单元文件:[attach=1619]

» 阅读该日志全文...

该日志标签: 汇编, 函数, 字符, 替换

《傻猫之歌》序

该日志由 samool 发表于 2007-10-23 7:39 AM

本站将要推出主题曲啦,哈哈哈

历史上第一首博客之歌——《傻猫之歌》将从这里诞生,大家敬请期待吧。

《傻猫之歌》将由四川音乐学校美女:小魔女(附照片)作曲,偶来作词,我们争取打造博客历史上第一首歌,给博客开辟新篇章

《傻猫之歌》计划是R&B风格,连说带唱的那种,预计圣诞节前出来,主要的看美女那边了,都已经计划了半年多时间了,6个月磨一剑,啥都不说了,期待中。。。

图片附件(缩略图):
温华.jpg

大小: 97.87 K
尺寸: 380 x 253
浏览: 26 次
点击打开新窗口浏览全图

该日志标签: 音乐, 傻猫之歌, 博客之歌

IsNumeric 判断字符串是否为数字

该日志由 samool 发表于 2007-10-22 10:17 AM

IsNumeric 判断字符串是否为数字,如果是数字返回true,如果包含有汉字或字符的话返回false.  由于Delphi本身没有IsNumeric这个函数,不像其它语言,这个函数相当于Java的IsNaN函数。

delphi代码
  1. function  IsNumeric(AStr:   string):   Boolean;   
  2. var  
  3.       Value:   Double;   
  4.       Code:   Integer;   
  5. begin  
  6.       Val(AStr,   Value,   Code);   
  7.       result   :=   Code   =   0;   
  8. end;  

该日志标签: 函数, 字符串, 数字, 判断

Delphi获取系统当前进程名和进程ID

该日志由 samool 发表于 2007-10-22 9:52 AM

获取系统当前进程名和进程ID,注意在编写本单元时,应注意引用"TLHelp32"单元"use TLHelp32".

delphi代码
  1. procedure TForm1.Button1Click(Sender: TObject);   
  2. var  
  3.   ProcessName : string//进程名   
  4.   ProcessID  : integer//进程表示符   
  5.   i : integer;   
  6.   ContinueLoop:BOOL;   
  7.   FSnapshotHandle:THandle; //进程快照句柄   
  8.   FProcessEntry32:TProcessEntry32; //进程入口的结构体信息   
  9. begin  
  10.   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照   
  11.   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   
  12.   ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程   
  13.   //循环例举   
  14.   while ContinueLoop  do  
  15.   begin  
  16.     ProcessName := FProcessEntry32.szExeFile;   
  17.     ProcessID := FProcessEntry32.th32ProcessID;   
  18.     Listbox.Items.add('应用程序名 :'+ProcessName +'#进程ID:'+ inttostr(ProcessID));   
  19.     ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);   
  20.   end;   
  21. end;  

图片附件(缩略图):
fek}k2iwo2$38p8atn}wvp4.jpg

大小: 61.72 K
尺寸: 380 x 336
浏览: 9 次
点击打开新窗口浏览全图

该日志标签: 系统, 进程名, 进程id, 进程, tlhelp32

WinExecAndWait32调用外部程序,等待外部程序运行完成

该日志由 samool 发表于 2007-10-22 9:45 AM

 调用外部程序,等待外部程序运行完成,相当于Showmodal功能,呵呵

delphi代码
  1. function WinExecAndWait32(FileName: string; Visibility: Boolean): integer;   
  2. var  
  3.   zAppName: array[0..512of char//存放应用程序名   
  4.   StartupInfo: TStartupInfo;   
  5.   ProcessInfo: TProcessInformation;   
  6.   exitCode: Dword;   
  7.   aVisibility: integer;   
  8. begin  
  9.   StrPCopy(zAppName, FileName);   
  10.   FillChar(StartupInfo, Sizeof(StartupInfo), #0);   
  11.   //给StartupInfo结构体赋值   
  12.   StartupInfo.cb := Sizeof(StartupInfo);   
  13.   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   
  14.   if Visibility then  
  15.     aVisibility := 1  
  16.   else  
  17.     aVisibility := 0;   
  18.   
  19.   StartupInfo.wShowWindow := aVisibility;   
  20.   //调用CreateProcess 创建进程,执行指定的可执行文件   
  21.   if not CreateProcess(nil, zAppName, nilnilfalse  
  22.     , CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS   
  23.     , nilnil, StartupInfo, ProcessInfo) then  
  24.     Result := -1  
  25.   else  
  26.   begin  
  27.     //等待可执行文件退出   
  28.     WaitforSingleObject(ProcessInfo.hProcess, INFINITE);   
  29.     //得到进程终止状态码   
  30.     GetExitCodeProcess(ProcessInfo.hProcess, exitCode);   
  31.     result := Exitcode;   
  32.   end;   
  33. end;  

该日志标签: 函数, 程序, 进程, 运行, winexec

Delphi字符统计和汉字统计

该日志由 samool 发表于 2007-10-21 10:31 PM

delphi代码
  1. procedure TForm1.btn1Click(Sender: TObject);   
  2. var i,e,c:integer;   
  3.     s:string;   
  4. begin    
  5.     s:=mmo1.Text ;   
  6.     e:=0;c:=0;   
  7.     for i:=1 to length(s) do  
  8.     begin  
  9.       if(ord(s[i])>=33)and(ord(s[i])<=126then  
  10.       begin  
  11.       inc(e);   
  12.       Label1.Caption:=inttostr(e);  //字符个数  
  13.       end  
  14.       else  if (ord(s[i])>=127then  
  15.       begin  
  16.       inc(c);   
  17.       Label2.Caption:=inttostr(c div 2);  //汉字个数 
  18.       end;   
  19.     end;   
  20. end;  

该日志标签: 汉字, 字符, 统计