1
我的生活
日志阅读：1486
日志评论：0

这几天拉肚子好难受啊

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

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

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

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

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

2
影视音乐
日志阅读：1802
日志评论：0

与月亮相关的歌曲

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

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

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

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


» 阅读该日志全文...

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

3
傻猫杂谈
日志阅读：2176
日志评论：0

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

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

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

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

» 阅读该日志全文...

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

4
我的生活
日志阅读：1660
日志评论：0

今天收到雅虎寄来的礼品

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

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

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

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

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

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

» 阅读该日志全文...

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

5
Delphi技术
日志阅读：2699
日志评论：0

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

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

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

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

» 阅读该日志全文...

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

6
我的生活
日志阅读：1579
日志评论：1

《傻猫之歌》序

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

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

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

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

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

图片附件(缩略图):
温华.jpg 大小: 97.87 K 尺寸: 380 x 253 浏览: 26 次 点击打开新窗口浏览全图

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

7
Delphi技术
日志阅读：2341
日志评论：0

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;  

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

8
Delphi技术
日志阅读：2098
日志评论：0

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

9
Delphi技术
日志阅读：2194
日志评论：0

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

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

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

delphi代码
  1. function WinExecAndWait32(FileName: string; Visibility: Boolean): integer;   
  2. var  
  3.   zAppName: array[0..512] of 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, nil, nil, false  
  22.     , CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS   
  23.     , nil, nil, 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

10
Delphi技术
日志阅读：1896
日志评论：0

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])<=126) then  
  10.       begin  
  11.       inc(e);   
  12.       Label1.Caption:=inttostr(e);  //字符个数  
  13.       end  
  14.       else  if (ord(s[i])>=127) then  
  15.       begin  
  16.       inc(c);   
  17.       Label2.Caption:=inttostr(c div 2);  //汉字个数 
  18.       end;   
  19.     end;   
  20. end;  

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

Total:119‹ Prev12345678Next ›Last »