自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

上一步保存

Vsun Sky ── 阿永的博客

&amp;amp;amp;nbsp;

12月

原创 delphi对复杂泛型排序学习笔记

procedure TForm1.Button1Click(Sender: TObject);type TPerson = record Name: String; Age: Integer; end;var List: TList; Comparer: TComparer; OutList, TPerson1, TPerson2, TPe

2012-12-15 22:34:05 1349

原创控制toolbutton的状态

procedure TForm1.ToolButton1Click(Sender: TObject);begin // TToolButton(Sender).Down := not odd(TToolButton(Sender).Tag); // TToolButton(Sender).Tag := TToolButton(Sender).Tag + 1; TToolBut

2012-12-15 22:18:58 949