- 博客(3)
- 收藏
- 关注
RSS订阅原创 Delphi 2种排序方法
比较第一个字串的最小值，然后取出第二字串中相应的一组 方法一；function GetMinValue(s1,s2:string):string; varss1,ss2:TStringList;MinIndex:integer;i:integer;beginss1:=TStringList.Create; ss2:=TStringList.Create;ss1.Delimiter:=
2008-10-09 22:25:00
1451
转载 Delphi 托盘类
托盘区就是在windows的状态栏下方显示时钟、输入法状态的地方，要把你的程序显示在托盘区：下面是一个托盘类，只要把下面粘贴到文本文件中，改成TrayIcon.pas，使用时uses TrayIcon就可以了。先声明一个全局变量：var tray:TTrayNotifyIcon;然后在窗体的OnCreate事件中：tray:=TTrayNotifyIcon.Create(self);//将窗体创建
2008-10-08 16:58:00
467
转载 Listview中行之间的上下移动
procedure TForm1.N5Click(Sender: TObject); var idex: Integer; TmpList1, TmpList2, TmpupList: TListItem; begin TmpList1 := lv2.Selected; if TmpLis
2008-10-08 11:15:00
580
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人