DELPHI学习
qin_yaping
这个作者很懒,什么都没留下…
展开
-
Delphi 如何GET/POST 调用HTTP请求
一、GET 请求procedure GetDemo;var IdHttp : TIdHTTP; Url : string;//请求地址 ResponseStream : TStringStream; //返回信息 ResponseStr : string;begin //创建IDHTTP控件 IdHttp := TIdHTTP.Create(nil); //TStringStream对象用于保存响应信息 ResponseStream := TStringStream....翻译 2020-09-07 15:17:47 · 2422 阅读 · 0 评论 -
dBGridEh 合计设置
1、将dBGridEh.FooterRowCount := 12、将DBGridEh.SumList.Active := True;3、将Columns[要求和的字段].Footer.ValueType := vtSum;就行了最后要注意,在FormCloseQuery事件中,一定要将SumList.Active := False,因为在数据集中的数据多了以后,FormCl转载 2017-11-30 10:22:16 · 1968 阅读 · 0 评论 -
DELPHI SpeedButton多个在一起设置其中只有一个按下其他的down值就是false
首先在一个panel中放上多个speedbutton控件,设置风格可以自己定义。我拖出来后,修改他们的属性parentBiDimode、parentFont、parentShowHint都为false。Transparent也设置为false。这个是保持speedbutton他自己的颜色主要是设置GroupIndex的值是一样的,这里我设置为1。这样就实现了多个speedButto原创 2017-12-28 10:21:40 · 1566 阅读 · 0 评论 -
delphi clientdataset判断字段存在是否存在
if dxmx.findfield('BYZD6') begin fm.MePlace.EditValue:=dxMx.fieldByname('BYZD6').Value; strCFWZ:='BYZD6'; end else if dxmx.findfield('CFWZ') begin fm.MePlace.E原创 2018-02-27 17:34:19 · 2180 阅读 · 0 评论 -
delphi 界面滚动条受鼠标滚动控制
1、添加控件applicationevents2、在这个空间的message事件添加下列方法procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin //窗体的滚动条响应鼠标滚轮 if Msg.message = WM_MOUSEWHEEL then翻译 2018-03-06 11:26:23 · 2599 阅读 · 0 评论 -
delphi Tlientdataset的数据导出来
procedure TFmKhXz.SaveToExcel;varExcelApp,Sheet:Olevariant; rowcnt:integer; bk:TBookMark;begintry bk:=dxSelect.GetBookmark; if dxSelect.IsEmpty then Exit; ExcelApp:=Create原创 2018-04-19 14:20:46 · 166 阅读 · 0 评论 -
Delphi DBGridEh固定锁定列的写法
例如function GetColFroZenCount:Integer;//计算锁定列 try DBG_Master.FrozenCols := GetColFroZenCount; except DBG_Master.FrozenCols :=0 end;function TFmWDDPH.GetColFroZenCount: Integer;原创 2018-04-24 12:36:49 · 1752 阅读 · 0 评论 -
delphi DbGridEh数据进行升序降序排序
//传入升序参数procedure TfmJcDjMxBase.mnuDxMainAscClick(Sender: TObject);begin inherited; GetMainDataSort('1') ;end;//传入降序参数procedure TfmJcDjMxBase.mnuDxMainEescClick(Sender: TObject);begin inherited; G...转载 2018-05-11 13:32:06 · 1288 阅读 · 0 评论 -
delphi日期函数、日期加减
Delphi里有现成的函数可以实现日期加减,是在DateUtils单元里的。function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime;// function IncMonth is in SysUtilsfunction IncWeek(const AValue: TDateTime...转载 2018-05-21 10:11:25 · 4477 阅读 · 0 评论 -
delphi 保留小数点的个位数方法
uses mathRoundTo(0.2668,-2)=0.27转载 2018-09-03 11:06:30 · 7479 阅读 · 0 评论 -
delphi Tdxmemdata控件获取TClientDataSet数据集的数据
直接用它自带的方法LoadFromDataSet去获取数据,转换控件dxMemData1.LoadFromDataSet(TClientDataSet);原创 2018-09-10 17:40:34 · 888 阅读 · 0 评论 -
Delphi INI文件保存与读取
//需要引用IniFilesuses system.IniFiles;//保存INI配置文件procedure TForm1.btnSaveClick(Sender: TObject);var myIniFile: TIniFile; filepath: string;begin filepath := ExtractFilePath(Application.Exen...转载 2018-09-13 14:54:19 · 885 阅读 · 0 评论 -
设置文本框为数字
procedure TfmQTHTD.edtMJ_1KeyPress(Sender: TObject; var Key: Char);begin inherited; if not (Key in ['0'..'9', '.', #08, #13]) then Key:=#0; if Key=#13 then begin key:=#0; selectne...原创 2019-01-21 10:32:06 · 450 阅读 · 0 评论 -
Delphi中copy函数和pos函数
copy(a,b,c);a:就是copy源,就是一个字符串,表示你将要从a里copy一些东西,b:从a中的第b位开始copy(包含第b位),c:copy从第b位开始后的c个字符,exp:m:=‘the fellowship of the ring’s:=copy(m,2,2); ...转载 2019-05-07 14:12:06 · 467 阅读 · 0 评论 -
在delphi中生成GUID/自动获取临时表名......
什么是 GUID ?全球唯一标识符 (GUID) 是一个字母数字标识符,用于指示产品的唯一性安装。在许多流行软件应用程序(例如 Web 浏览器和媒体播放器)中,都使用 GUID。GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”其中每个 x 是 0-9 或 A-F 范围内的一个十六进制的数字。例如:6F9619FF翻译 2017-11-02 11:57:25 · 742 阅读 · 0 评论 -
ORACLE 日期字符格式转换
年月日 时分秒to_date(to_char(SYSDATE,'YYYY-MM-DD hh24:mi:ss'),'YYYY-MM-DD hh24:mi:ss')年月日to_date(to_char(SYSDATE,'YYYY-MM-DD'),'YYYY-MM-DD')翻译 2017-11-09 11:46:33 · 1893 阅读 · 0 评论 -
TDbGrideh 画列信息的时候 指定某列是勾选框的写法
procedure TFmExchangeAuditing.InitColumn;vari,j:integer;begin DbGrid1.SumList.Active:=False; DBGrid1.Columns.BeginUpdate; try for i:=0 to dbgrid1.Columns.Count-1 do begin原创 2017-11-09 10:59:28 · 878 阅读 · 0 评论 -
StringGrid回车跳到下一个空格中
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin case Key of VK_RETURN: if TStringGrid(Sender).Col + 1 TStringGrid(Sender转载 2016-12-09 11:03:26 · 370 阅读 · 0 评论 -
对StringGrid输入一个数后对其他表格填充的代码
procedure TFmPrtSlMx.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);var Buffer,sum:string; i,j:Integer;begin// if key=13 then key:=vk_tab; qyp 20161209 modify 修改原创 2016-12-09 18:05:00 · 4723 阅读 · 0 评论 -
对StringGrid末尾求和代码
procedure TFmPrtSlMx.SumGridMx;var i,j:integer; s:integer;begin for i:=1 to StringGrid1.Colcount-2 do begin s:=0; for j:=1 to StringGrid1.RowCount-2 do begin tr原创 2016-12-09 18:08:07 · 320 阅读 · 0 评论 -
StringReplace
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;rfReplaceAll:全部替换rfIgnoreCase:忽略大小写For Example:var aStr: String;begin aStr := 'Th转载 2016-12-24 16:56:44 · 286 阅读 · 0 评论 -
Delphi数据库技术中Disablecontrols和Enablecontrols的功能
一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示:with Table DobeginDisableControls;{在修改记录的过程中,使其它部件无效}First; {将记录指针指向第一条记录}while not EOF dobeginEdit; {将TTable部件置成编辑状态}转载 2017-01-06 14:38:35 · 2433 阅读 · 0 评论 -
DELPHI 设置控件输入的值是数字
procedure TfmxsFyd.DAYSKeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9','.',#8,#46]) then Key:=#0; if Key=#13 then begin key:=#0; selectnext(ActiveCont原创 2017-03-17 10:10:25 · 410 阅读 · 0 评论 -
delphi popupmenu下的tag值获取
(Sender as TMenuItem).Tag 获取点击item设置的tag值原创 2017-04-25 14:20:10 · 1028 阅读 · 0 评论 -
DELPHI窗体属性介绍
1.Appearance属性功能:设置窗体中控件是否以三维立体方式显示。取值:1) 1-3D 默认设置,以三维立体方式窗体上的控件。2) 0-Flat 以二维方式显示窗体上的控件。该属性不能通过代码在运行时设置,必须通过属性窗口在设计时设置。2.AutoRedraw属性功能:设置窗体中显示的信息是否重画。当返回被其他窗体遮住的窗体时,如果此属性设置为True,则自动刷新或者转载 2017-06-01 17:30:27 · 1920 阅读 · 0 评论 -
delphi 捕捉屏幕异常特殊处理
Application.OnException := BSException;//异常捕捉procedure TfmClient.BSException(Sender: TObject; E: Exception);begin // EOSError System Error. Code: 5. 拒绝访问。. if Pos('System Error. Code翻译 2017-06-30 17:33:06 · 861 阅读 · 0 评论 -
delphi dbgrid行颜色改变
把 dgRowSelect 设为True, 在option里面.// DBGrid1的OnDrawColumnCell事件if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then begin DBGrid1.Canvas.Font.Color :=ClYellow;翻译 2017-09-04 16:48:31 · 4051 阅读 · 0 评论 -
delphi 进度条
delphi 进度条控件的简单使用新建一工程,在form上添加一个 ProgressBar1和一个Button,为Button单击事件写如下代码: procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin ProgressBar1.Min:=0; P转载 2017-09-05 11:19:08 · 1382 阅读 · 0 评论 -
delphi 查看windows后台进程是否运行
function TfmLogin.FindProcess(AFileName: string): boolean;var hSnapshot : THandle; lppe : TProcessEntry32; Found : Boolean;begin Result := False; hSnapshot := CreateToolhelp32Snapsh翻译 2017-09-05 20:56:21 · 918 阅读 · 0 评论 -
delphi format的用法
一、Format函数的用法Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一转载 2017-10-09 10:15:25 · 420 阅读 · 0 评论 -
with do的意义
使用 with的时候with FDataLayoutInfo do begin intUseSheets:=0; MainTName:='CZKLB'; MainPkFld:='LBDM'; MainMcFld:='LBMC'; intMxTInfo:=0; DataMem:=datamain.dxCZKLB; e原创 2016-09-23 12:00:32 · 526 阅读 · 0 评论