- 博客(5)
- 收藏
- 关注
原创 DELPHI数组排序
procedure Sort(var A: array of Integer); var I, J, T: Integer; begin for I := High(A) downto Low(A) do for J := Low(A) to High(A) - 1 do if A[J] < A[J + 1] then begin T :=
2014-01-09 17:14:32 6064
原创 XE5电脑录像功能
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; typ
2014-01-07 09:14:06 1112
原创 XE5手势
unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Gestures; type TF
2014-01-07 08:29:00 2313
原创 VC保存结构体到文本
struct modelNode { char p1; short int p2; long p3; }modelNode; void CSmtDlg::OnBnClickedButton1() { CFile tempFile(_T("c:\\LocalDatas.txt"),CFile::modeCreate|CFile::modeNoTruncate| CFile::modeWrit
2014-01-04 08:19:33 1667
转载 DELPHI U盘插入拔出提示
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI; type TForm1 = class(TForm) Button1: TButton; private
2014-01-03 08:13:44 1043
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人