从头再来
我的feed因为编码的问题在feedsky显示出来的是乱码，这几天忽然在feedburner也不能用了。隐隐觉得是放的那个图片的问题，可又说不明白哪里的问题。
反正使出浑身解数我还是失败了，就看过几天会不会好吧，要是不会好，人家订我的东西看到的还带着xml的空标签（比如<br />），那该多糟糕呢。看来，万不得已，我得换套blog系统了……
真是受不了，怎么这几天就这么不爽呢？中午GF也很不高兴，因为邮局再次让他很失望。
最近心血来潮看了看xml开发，这才明白为什么王茜那时在为我规划宏伟蓝图的时候把xml放在了最后。
现在我大概明白了feedsky和feedburner地工作原理了，用一个xsl文件把xml“翻译”出来。也不知道我说得对不，高手看了别笑话……要学的东西还很多，该学什么好呢？
看来我真的该和年级辅导员联系一下了。
我经常会看着流量统计发呆。比如，今天流量超过30了，或是居然只有4个IP来访，还都是google,baidu带来的。ip少了pv自然也小了，有时我开心，有时却是多么失落呀……
我不知道我为什么那么在乎pv，就因为我的blog放着广告？对hao123来说，恐怕最大的面子就是pv了；可是对我来说，对那些没有想过通过blog获得收益的人来说，pv算个屁。
现在，我倒是挺在意订阅的。看着智勇、zhanghe4的订阅量流口水，也曾想用什么办法把他们的那个给偷过来冒充一下。我的订阅量一直在1、2上徘徊，天哪，居然没有上过3。今天注意到keso的feed里好像加上广告了，心里羡慕地想，什么时候才能混到这种水平呢？
期末就快回家了，总要先考试。那时候高中的班主任说，学生哪里逃得了考试。现在想想，人家真的好正确，又好恶心。
一个学期下来，爱过一些人，恨过一些人，有些人在我身边悲泣，有些人放出他们的光芒。在学生组织的工作并不出色，技术却被好多人认可。在班里没混到一官半职，倒也落得轻松。buyren的斑竹们还是一如既往地色，只是都姓了归海。
我有一个让人羡慕的GF和一段堪称完美的感情，虽然距离是如此遥远，我明显感觉一切都没有改变。今年冬天没有雪，gf说她还记得去年我在雪里等她的那次，天灰灰，我的思念飞旋，又急速地远遁在空气里。长治同样没有下雪，她说，我会带着一场雪见她。
今年的高考161普遍意义上来说是失败的。虽然有两个清华生还有好多也去了不错的名校，虽然附中拼命的宣传，虽然我们还是笑着走过，我们每个人都不觉得这是什么荣耀。不过我不觉得到了比自己水平低一些的学校是种灾难。王队在清华园里过得并不开心，而我在杭电还算是不错的（虽然没有如愿进入实验班）。
自己参加的第一次acm程序设计比赛只做出一道题拿了一个相当于安慰奖的参赛奖，因为我是新生。我心里不太喜欢这样的比赛，不过还是很乐意去赚点名气回来。本来新生奖是我的，很可惜，我因为不懂规则犯了一些错误。
还好，自己感觉很好。技术有了很大的长进，其他科目也觉得没什么问题。希望以后也一直有这样的感觉，希望我永远是最强的人之一，希望那场雪，在我回去的时候再下起来……
经常会看到这样或那样的献爱心活动.或是捐款,或是捐献器官,或是捐献骨髓,还有其他可以捐的……中国的电视台里经常是这些的报道,动情的解说有时会让观众不禁潸然泪下.
我家也有着白血病的遗传,我刚刚有一个叔叔过世就是因为这毛病.相信这类的绝症对于每个生命来说都是残酷的,所以社会各界的捐助也无可厚非.但是我们往往做的事情包括但不限于献出爱心,总会有人扛着摄象机到了被救助的幸运儿家里寒暄一番,爱心都被拿来做秀了.
而我们的觉悟似乎还远远不及欧美,我们的媒体像是饥渴的男人恨不得多挖些这样的料子.哦,这样也不是不好.那时侯gf担心我将来会突然有一天因为某些疾病离开她,现在不要紧了,我只要打个电话到报社,我立刻会成为大家献爱心的对象……
看来我得先给自己接受别人的帮助找些理由了.
想起来真是太不爽了，我有多少事情没做呢？想到了这些，也就不奇怪为什么我这么年轻却在做这些事情了。
１、不看电视和电影（对Ａ片也没兴趣）
２、不打游戏
３、不吃零食
４、不喜欢读书
５、很少对技术之外的东西感兴趣（除了钱）
实在是不明白，经常这样努力地学习为的是什么？在哪里才会有真正的快乐？被别人认可还是被自己接受？是过得自由一点还是陪着一大堆的钞票？自己的技术在一天天提高，但有什么用呢？我还是不能拿它来养活我自己，还是要做一个消费者，还是找不到让我施展的地方。
昨天我去看流量统计的时候，不知道为什么一直登陆不上去。试了好多次，终于确定我的密码被人盗了以后，一不小心，发现是自己在用户名那里不小心多敲了一个空格。
那时的我是多么郁闷呀。后来想想，他在后台处理的时候加一个trim不就行了？或者，也许我把问题简单化了？
有那么些事情总是很有意思，在taobao的红包如火如荼地发展的时候，从joyo和dangdang发展来的礼品卡似乎销声匿迹了。
从当当对用券以后订单返点比例的克扣上不难看出，礼品卡事实上对b2c的网站已经成了一种负担。网络这个东西能把一些东西变得容易比如购物，也能把一些东西变得很难比如隐瞒。曾经的礼券只是少数人在使用，更多的人会毫不犹豫地选购，付清所有款项，然后等着送货上门。
但是2004年刮来了一阵风，风过之后，大大小小购物论坛起来上百个。每个论坛已开始都是以礼品卡起家的，它们给那些在网上寻找礼券无门的网民找到一个小屋。一系列的联盟接踵而至，购物论坛和b2c网站联合演了一出好戏，殊不知，购物论坛发展了大批用户、网站接到雪片一样的订单的时候，礼品卡显然已经成了它的累赘。
通过联盟会员网站下的订单，一百个里面九十九个都是用过礼券的。也就是说b2c网站的利润无形之中被削掉了好多。今天看到丽云在盼着过年的时候得到当当的礼券，我不禁想，去年这个时候joyo所搞的活动，今年还会有吗？以后还会有吗？
Code:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
OutLable: TLabel;
MainMenu1: TMainMenu;
m_edit: TMenuItem;
e_cpoy: TMenuItem;
N3: TMenuItem;
e_paste: TMenuItem;
btn_7: TButton;
btn_9: TButton;
btn_8: TButton;
btn_4: TButton;
btn_6: TButton;
btn_5: TButton;
btn_1: TButton;
btn_3: TButton;
btn_2: TButton;
btn_0: TButton;
btn_point: TButton;
btn_change: TButton;
btn_chu: TButton;
btn_chen: TButton;
btn_jian: TButton;
btn_jia: TButton;
btn_mc: TButton;
btn_mr: TButton;
btn_ms: TButton;
btn_madd: TButton;
btn_sqr: TButton;
btn_dao: TButton;
btn_equ: TButton;
btn_c: TButton;
Edt_1: TEdit;
m_help: TMenuItem;
h_about: TMenuItem;
procedure btn_1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btn_0Click(Sender: TObject);
procedure btn_2Click(Sender: TObject);
procedure btn_3Click(Sender: TObject);
procedure btn_4Click(Sender: TObject);
procedure btn_5Click(Sender: TObject);
procedure btn_6Click(Sender: TObject);
procedure btn_7Click(Sender: TObject);
procedure btn_8Click(Sender: TObject);
procedure btn_9Click(Sender: TObject);
procedure btn_changeClick(Sender: TObject);
procedure btn_pointClick(Sender: TObject);
procedure btn_cClick(Sender: TObject);
procedure btn_chuClick(Sender: TObject);
procedure btn_chenClick(Sender: TObject);
procedure btn_jianClick(Sender: TObject);
procedure btn_jiaClick(Sender: TObject);
procedure btn_sqrClick(Sender: TObject);
procedure btn_daoClick(Sender: TObject);
procedure btn_equClick(Sender: TObject);
procedure e_cpoyClick(Sender: TObject);
procedure e_pasteClick(Sender: TObject);
procedure h_aboutClick(Sender: TObject);
procedure btn_mcClick(Sender: TObject);
procedure btn_mrClick(Sender: TObject);
procedure btn_msClick(Sender: TObject);
procedure btn_maddClick(Sender: TObject);
end;
var
Form1: TForm1;
equal : boolean;
pointed : boolean;
symbol : char;
num_1 : double;
num_2 : double;
memory : double ;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.btn_1Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’1′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’1′;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
equal := true;
end;
procedure TForm1.btn_0Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’0′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’0′;
end;
end;
procedure TForm1.btn_2Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’2′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’2′;
end;
end;
procedure TForm1.btn_3Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’3′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’3′;
end;
end;
procedure TForm1.btn_4Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’4′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’4′;
end;
end;
procedure TForm1.btn_5Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’5′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’5′;
end;
end;
procedure TForm1.btn_6Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’6′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’6′;
end;
end;
procedure TForm1.btn_7Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’7′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’7′;
end;
end;
procedure TForm1.btn_8Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’8′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’8′;
end;
end;
procedure TForm1.btn_9Click(Sender: TObject);
begin
if equal then
begin
form1.OutLable.Caption := ’9′ ;
equal := false;
end
else
begin
form1.OutLable.Caption := form1.OutLable.caption + ’9′;
end;
end;
procedure TForm1.btn_changeClick(Sender: TObject);
var
temp : double;
begin
temp:= strtofloat(form1.OutLable.Caption);
temp := 0-temp;
form1.OutLable.Caption := floattostr(temp);
equal:=false;
end;
procedure TForm1.btn_pointClick(Sender: TObject);
begin
if pointed=false then
begin
pointed :=true;
form1.OutLable.Caption := form1.OutLable.Caption + ‘.’;
equal:=false;
end;
end;
procedure TForm1.btn_cClick(Sender: TObject);
begin
pointed:= false;
equal:=true;
form1.OutLable.Caption := ’0′;
end;
procedure TForm1.btn_chuClick(Sender: TObject);
begin
symbol:=’/';
num_1 := strtofloat(form1.OutLable.caption);
equal :=true;
end;
procedure TForm1.btn_chenClick(Sender: TObject);
begin
symbol:=’*';
num_1 := strtofloat(form1.OutLable.caption);
equal :=true;
end;
procedure TForm1.btn_jianClick(Sender: TObject);
begin
symbol:=’-';
num_1 := strtofloat(form1.OutLable.caption);
equal :=true;
end;
procedure TForm1.btn_jiaClick(Sender: TObject);
begin
symbol:=’+';
num_1 := strtofloat(form1.OutLable.caption);
equal :=true;
end;
procedure TForm1.btn_sqrClick(Sender: TObject);
begin
num_1:=strtofloat(form1.OutLable.Caption);
if num_1>=0 then
begin
num_1:=sqrt(num_1);
form1.OutLable.Caption := floattostr(num_1);
equal:=true;
end
else
begin
form1.OutLable.caption := ‘ERROR’;
equal := true;
end;
end;
procedure TForm1.btn_daoClick(Sender: TObject);
begin
num_1:=strtofloat(form1.OutLable.Caption);
num_1:=1/num_1;
form1.OutLable.Caption := floattostr(num_1);
equal:=true;
end;
procedure TForm1.btn_equClick(Sender: TObject);
var
showrt : double;
begin
num_2 := strtofloat(form1.OutLable.Caption);
case symbol of
‘+’ : showrt := num_1+num_2;
‘-’ : showrt := num_1-num_2;
‘*’ : showrt := num_1*num_2;
‘/’ : showrt := num_1/num_2;
end;
equal:=true;
form1.OutLable.Caption := floattostr(showrt);
end;
procedure TForm1.e_cpoyClick(Sender: TObject);
begin
form1.Edt_1.Text := form1.OutLable.Caption;
form1.Edt_1.SelectAll;
form1.Edt_1.CopyToClipboard;
end;
procedure TForm1.e_pasteClick(Sender: TObject);
begin
form1.Edt_1.PasteFromClipboard;
form1.OutLable.Caption:=form1.Edt_1.Text;
end;
procedure TForm1.h_aboutClick(Sender: TObject);
begin
form2.ShowModal;
end;
procedure TForm1.btn_mcClick(Sender: TObject);
begin
memory:=0;
end;
procedure TForm1.btn_mrClick(Sender: TObject);
begin
self.OutLable.Caption := floattostr(memory) ;
end;
procedure TForm1.btn_msClick(Sender: TObject);
begin
memory := strtofloat(self.OutLable.Caption)
end;
procedure TForm1.btn_maddClick(Sender: TObject);
begin
memory := memory + strtofloat(self.OutLable.Caption);
end;
end.
环境：delphi6.0以上,win2000以上
Code:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
FileF1: TMenuItem;
NewN1: TMenuItem;
OpenO1: TMenuItem;
SaveS1: TMenuItem;
SaveAsA1: TMenuItem;
N1: TMenuItem;
PageSettingsU1: TMenuItem;
PrintP1: TMenuItem;
N2: TMenuItem;
ExitX1: TMenuItem;
EditE1: TMenuItem;
UndoU1: TMenuItem;
N3: TMenuItem;
CutT1: TMenuItem;
CopyC1: TMenuItem;
PasteP1: TMenuItem;
N4: TMenuItem;
FindF1: TMenuItem;
FindNextN1: TMenuItem;
ReplaceR1: TMenuItem;
N5: TMenuItem;
Selete1: TMenuItem;
StyleO1: TMenuItem;
FontF1: TMenuItem;
HelpH1: TMenuItem;
AboutA1: TMenuItem;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
PrintDialog1: TPrintDialog;
FindDialog1: TFindDialog;
ReplaceDialog1: TReplaceDialog;
procedure UndoU1Click(Sender: TObject);
procedure AboutA1Click(Sender: TObject);
procedure FontF1Click(Sender: TObject);
procedure Selete1Click(Sender: TObject);
procedure PasteP1Click(Sender: TObject);
procedure CopyC1Click(Sender: TObject);
procedure CutT1Click(Sender: TObject);
procedure ExitX1Click(Sender: TObject);
procedure PrintP1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SaveAsA1Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure SaveS1Click(Sender: TObject);
procedure OpenO1Click(Sender: TObject);
procedure NewN1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
filename : string;
Saved : Boolean;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.NewN1Click(Sender: TObject);
var
remsg:integer;
begin
If Saved then
begin
Form1.Caption := ‘Untitled–MyNotePad’;
Form1.Memo1.Lines.Clear;
Form1.UndoU1.Enabled := False;
saved:=true;
end
Else
begin
remsg:=Application.MessageBox(‘File Not Saved,Are you sure to save?’,'File Not Saved’,MB_yesno+MB_IconQuestion) ;//Ask Whether To Save
if remsg=6 then //Save
begin
If form1.SaveDialog1.Execute then
begin
Filename := form1.SaveDialog1.FileName;
form1.Memo1.Lines.SaveToFile(filename);
end;
end
else //Do not save
begin
Form1.Caption := ‘Untitled–MyNotePad’;
Form1.Memo1.Lines.Clear;
Form1.UndoU1.Enabled := False;
saved:=true;
end;
end;
end;
procedure TForm1.OpenO1Click(Sender: TObject);
var
remsg:integer;
begin
If Saved then
begin
if Form1.OpenDialog1.Execute then
begin
filename:=form1.OpenDialog1.FileName;
form1.Memo1.Lines.LoadFromFile(filename);
Form1.Caption := filename+’–MyNotePad’;
end;
end
Else
begin
remsg:=Application.MessageBox(‘File Not Saved,Are you sure to save?’,'File Not Saved’,MB_yesno+MB_IconQuestion) ;//Ask Whether To Save
if remsg=6 then //Save
begin
If form1.SaveDialog1.Execute then
begin
Filename := form1.SaveDialog1.FileName;
form1.Memo1.Lines.SaveToFile(filename);
Saved:=true;
end;
end
else //Do not save
begin
if Form1.OpenDialog1.Execute then
begin
filename:=form1.OpenDialog1.FileName;
form1.Memo1.Lines.LoadFromFile(filename);
Form1.Caption := filename+’–MyNotePad’;
end;
end;
if Form1.OpenDialog1.Execute then
begin
filename:=form1.OpenDialog1.FileName;
form1.Memo1.Lines.LoadFromFile(filename);
Form1.Caption := filename+’–MyNotePad’;
end;
end;
end;
procedure TForm1.SaveS1Click(Sender: TObject);
begin
if filename=” then
begin
If form1.SaveDialog1.Execute then
begin
filename := filename+’.txt’;
form1.Memo1.Lines.SaveToFile(filename);
form1.Caption := filename + ‘–MyNotePad’;
saved := true;
end;
end
else
begin
form1.Memo1.Lines.SaveToFile(filename);
saved := true;
end;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
Saved:=false;
form1.UndoU1.Enabled := true;
end;
procedure TForm1.SaveAsA1Click(Sender: TObject);
begin
if form1.SaveDialog1.Execute then
begin
filename := form1.SaveDialog1.FileName;
form1.Memo1.Lines.SaveToFile(filename);
form1.Caption := filename + ‘–Untitled’ ;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.UndoU1.Enabled := False;
saved:=true;
end;
procedure TForm1.PrintP1Click(Sender: TObject);
begin
form1.PrintDialog1.Execute;
end;
procedure TForm1.ExitX1Click(Sender: TObject);
var
remsg : integer;
begin
If saved=false then
begin
remsg:=Application.MessageBox(‘File Not Saved,Are you sure to save?’,'File Not Saved’,MB_yesno+MB_IconQuestion) ;//Ask Whether To Save
if remsg=6 then //Save
begin
If form1.SaveDialog1.Execute then
begin
Filename := form1.SaveDialog1.FileName;
form1.Memo1.Lines.SaveToFile(filename);
end;
end
else //Do not save
begin
close;
end;
end
else
begin
Close;
end;
end;
procedure TForm1.CutT1Click(Sender: TObject);
begin
Form1.Memo1.CutToClipboard ;
end;
procedure TForm1.CopyC1Click(Sender: TObject);
begin
Form1.Memo1.CopyToClipboard;
end;
procedure TForm1.PasteP1Click(Sender: TObject);
begin
Form1.Memo1.PasteFromClipboard;
end;
procedure TForm1.Selete1Click(Sender: TObject);
begin
form1.Memo1.SelectAll;
end;
procedure TForm1.FontF1Click(Sender: TObject);
begin
If form1.FontDialog1.Execute then
begin
form1.Memo1.Font := form1.FontDialog1.Font;
end;
end;
procedure TForm1.AboutA1Click(Sender: TObject);
begin
form2.ShowModal;
end;
procedure TForm1.UndoU1Click(Sender: TObject);
begin
form1.Memo1.Undo;
form1.UndoU1.Enabled := False;
end;
end.
环境：delphi6.0以上，win2000以上
You are currently browsing the 张磊的blog weblog archives for the month December, 2005.
