zhangshengqi的博客_知识点积累原创博文

Tchart 甘特

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, Series, GanttCh, TeeCom

职场

休闲

Tchart

甘特

原创 2010-07-01 18:13:25 672 阅读

Tchart 光滑

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, TeeSpline, DBChart, StdC

职场

休闲

Tchart

原创 2010-06-25 18:09:44 642 阅读

cxdbtreelist

var MyTreeListNode,MyTreeListNode3 : TcxTreeListNode;begin cxTreeList1.Clear; MyTreeListNode:=cxTreeList1.Add; MyTreeListNode.ImageIndex := 1 ; MyTreeListNode.Values[0]:=

职场

休闲

cxdbtreelist

原创 2010-06-11 19:13:07 746 阅读

rzlistview1用法

procedure TForm1.Button1Click(Sender: TObject);begin with rzlistview1 do begin Columns.Add; Columns.Add; Columns.Add;

职场

休闲

listview

原创 2010-03-24 10:37:15 1604 阅读

修改SQLserver2005密码

今天修改SQLSERVER2005密码折腾了半个小时 1 最顶端点击属性--安全性改为双重登陆 2在下面的安全性中设置密码

职场

数据库

SQLserver

休闲

原创 2010-01-26 10:00:01 717 阅读

获取上一级目录

procedure TForm1.Button1Click(Sender: TObject);var a,b,c:string;begin a:=ExtractFilePath(paramstr(0)); b:=copy(a,1,length(a)-1); showmessage(ExtractFilePath(b + '..')); end;

职场

休闲

原创 2009-08-08 19:03:54 1036 阅读

文件路径

filename:='c:\mypath\myfile.exe'; ExtractFileDir(Filename);-->'c:\mypath' ExtractFilePath(Filename);-->'c:\mypath\' ExtractFileName(FileName);-->'myf

职场

休闲

原创 2009-08-08 12:00:11 442 阅读

delphi获取Ip完整版

function Tconfigform.GetLocalIP: string; //获取本机IP地址type TaPInAddr = array[0..255] of PInAddr; //Use Winsock.pas PaPInAddr = ^TaPInAddr;var phe: PHostEnt;

职场

休闲

原创 2009-08-01 10:15:48 1114 阅读

获取时间

procedure TForm1.Button2Click(Sender: TObject);var date: SYSTEMTIME;begin GetLocalTime(date); showmessage(inttostr(date.wMonth ));end;

职场

休闲

原创 2009-07-31 19:08:37 343 阅读

分割 '12,11212,q,qweqwe,qw'; ExtractStrings

procedure TForm1.Button1Click(Sender: TObject);var tList: TStringlist;s1: string;l: Integer;begin try s1 := '12,11212,q,qweqwe,qw'; tList := TStringList.Cre

职场

休闲

原创 2009-07-31 18:51:07 485 阅读

读INI文件所有节点信息到列表中

以下代码读取Ini文件的所有信息 function TFrm_Main.AddIniInfoList: Integer;var IniInfoList: tstringlist; i: Integer; SecTionName: string; Titem: TListItem;begin TeListView1.Clear;

职场

休闲

原创 2009-07-29 11:42:43 869 阅读

中文乱码

MyQuery1.SQL.Clear; MyQuery1.Close; MyQuery1.SQL.Add('SET NAMES GB2312 '); MyQuery1.Execute; MyQuery1.Close; MyQuery1.SQL.Clear; MyQuery1.SQL.Add('select *

职场

休闲

原创 2009-07-20 19:55:50 649 阅读 1评论

读BMP文件头

var Sql_Text: string; s, FileName: string; hc: TIcon; Bitmap: TBitmap; path1: string; path2: string; FileInfo: TSHFileInfo; BMPHead1: tagBITMAPFILEHEA

职场

休闲

原创 2009-07-19 18:04:57 919 阅读 1评论

WideString 和 string区别

有谁能说出这两个类型的区别吗？后来大脚兄解释说：WideString 以两位方式处理字符串，而 String 则一位一位处理。不过，这意味着什么呢？如果你只开发英文版的软件，那无所谓，这两个类型没有任何区别。但是如果使用了中文，那就要严格区分这两个类型的区别了，否则就像我前几天那样，为了乱码的问题百思不得其解。聪明一点的朋友会说：我知道它们的区别，所以凡是用到中文的地方我全都用 WideS

职场

休闲

原创 2009-05-28 11:11:13 1411 阅读

总结

procedure TForm1.Button7Click(Sender: TObject);var FromF, ToF: file; NumRead, NumWritten: dWord; Buf: array[1..2048] of Char; countbuf: array of Char; FromFile, ToFile: s

职场

休闲

原创 2009-05-26 10:33:13 300 阅读 2评论

回调函数

type EnumWindowsProc = function (Hwnd: THandle; Param: Pointer): Boolean; stdcall;function GetTitle (Hwnd: THandle; Param: Pointer): Boolean; stdcall;var Text: string;begin&nb

职场

休闲

原创 2009-05-24 18:42:15 780 阅读 1评论

提取小图标

procedure TForm1.Button3Click(Sender: TObject);var shfileinfo:tshfileinfo; icon:ticon;begin icon := ticon.create; try if opendialog1.execute then &

职场

休闲

原创 2009-05-23 15:58:44 581 阅读

动态FORM

procedure TForm1.FormShow(Sender: TObject);begin AnimateWindow(handle,500,AW_Center); // AW_BLEND , AW_Center // AW_VER_POSITIVE , AW_HOR_POSITIVE

职场

休闲

原创 2009-05-21 12:41:42 359 阅读 2评论

treeview

ShowButtons := False;//不显示子结点的'+' ShowRoot := False; //不显示根结点的'+' ShowLines := False; //不显示Tree

职场

休闲

原创 2009-05-15 10:44:16 273 阅读

窗体最小化后在工具栏

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm2 = class(TForm) private &nbs

职场

休闲

原创 2009-05-10 14:37:34 393 阅读

数组赋值比较

procedure TForm1.btn1Click(Sender: TObject);var data1: array[0..65535] of byte; data2: array[0..65535] of byte; i :integer; d :byte; s,s1:Pointer ;begin for i

职场

休闲

原创 2009-04-17 16:06:34 426 阅读

提取文件图标

procedure TForm1.btn3Click(Sender: TObject);varFileName: AnsiString;begin if OpenDialog1.Execute thenFileName := OpenDialog1.FileName ;img1.Picture.Icon.Handle :=ExtractIcon(Hinstance, pchar(Fil

职场

休闲

原创 2009-04-08 18:04:57 412 阅读 1评论

界面制作

1 整个面板改变颜色 Gradientcolorstop---clGradientActiveCaption2 单个分组改变面板 CaptionColorStop---clSkyBlue(右边) CaptionColorStart---clWhite(左边) 整个分组面板颜色 Color---clSkyBlue 面板边框颜色&

职场

休闲

原创 2009-03-18 11:14:27 443 阅读 2评论

delphi控件toolbar操作

drawingstyle 设置成dsGradient效果好

职场

delphi

控件

休闲

toolbar

原创 2009-02-06 16:53:27 1711 阅读 2评论

将数据集由横向显示改为竖向并规定列个数

procedure TForm1.btn3Click(Sender: TObject);begin myclntdtst1.Close; myclntdtst1.CommandText :='select * from Base_DataError'; myclntdtst1.Open; T

职场

休闲

数据集

原创 2008-12-25 11:36:20 633 阅读 4评论

字符串分解为数组

procedure TForm1.btn1Click(Sender: TObject);var MultiDB:array[0..20] of string; multiname:string; i,j,z:Integer;begin multiname:='a,bc,def,ghth,'; j:=1;&nb

职场

数组

字符串

休闲

原创 2008-12-19 14:12:59 516 阅读 1评论

模态窗体

self.ModalResult := mrOk;self.ModalResult := mrCancel; if form2.ShowModal=mrOk thenShowMessage(Form2.edt1.text);

职场

休闲

模态窗体

原创 2008-12-16 10:37:29 427 阅读 1评论

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

601880

Tchart 甘特

Tchart 光滑

cxdbtreelist

rzlistview1用法

修改SQLserver2005密码

获取上一级目录

文件路径

delphi获取Ip完整版

获取时间

分割 '12,11212,q,qweqwe,qw'; ExtractStrings

读INI文件所有节点信息到列表中

中文乱码

读BMP文件头

WideString 和 string区别

总结

回调函数

提取小图标

动态FORM

treeview

窗体最小化后在工具栏

数组赋值比较

提取文件图标

界面制作

delphi控件toolbar操作

将数据集由横向显示改为竖向并规定列个数

字符串分解为数组

模态窗体