- 博客(8)
- 资源 (31)
- 收藏
- 关注
原创 Delphi 遍历类中的属性
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TypInfo;type TForm1 = class(TForm) Button2: TButton; procedure
2012-09-21 16:45:35 5509 1
转载 delphi中遍历枚举类型的方法
刚好碰到 ,顺便试了下,有需要的朋友可以看看。 uses TypInfo; type TOrderType = (otFN,otGR,otSZ);var pi:PTypeInfo; i:Integer; ot:TOrderType; s:String;begin pi:= TypeInfo(TOrderType); with GetTypeData
2012-09-21 14:37:32 3102 1
转载 DBGrid 根据表格中数据长度自动调整表格宽度
在“自动设置表格宽度”文本框中获取每个字段实际使用的最大字节数,然后设置DBGrid表格列的Field.DisplayWidth属性来根据实际字段长度自动调整表格宽度,主要代码如下:procedure TFrmOrderBy.BtnOrderClick(Sender: TObject);var i: integer; fieldname: string;begin with
2012-09-19 17:18:05 4362
原创 sql Server 筛选重复的数据。
select Name1,Name2 from DataTable where WriteDate>'2012-09-09 08:09:59.000' group by Name1,Name2 having count(*)>1
2012-09-11 10:30:05 2402
原创 Delphi 支持通配符删除文件!
procedure DeleteFileEx(FileName:string);var FileDir:string; FileStruct:TSHFileOpStruct;begin FileDir := FileName;// 'C:\temp\abc*.txt'; FileStruct.Wnd :=0; FileStruct
2012-09-10 14:12:49 2409 1
原创 Delphi 7 中DBGrid的排序。
procedure TfrmTraceReport.DBGrid1TitleClick(Column: TColumn);var SortField, FieldTitle: string;begin SortField := Column.Field.FieldName; FieldTitle := Column.Title.Caption; ShowMessage(Sor
2012-09-07 12:25:02 2834
原创 在存储过程中,用xml作为参数传递
create Procedure [dbo].[Test] @xml varchar(8000)asbegin declare @doc xml set @doc=@xml set @doc.modify('delete /biglottos/N1') -- 测试节点删除。 select convert(varchar(200), @Doc)SELEC
2012-09-06 16:42:49 2642
BaoFeng888s-app.zip
2019-05-31
visual studio 2010 主题包黑灰色
2016-02-25
IIS 5.1 Internet信息服务器安装包 For Windows 2000/XP
2013-01-07
win 7 解除远程桌面多用户同时连接(会话)数限制
2012-08-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人