随笔分类 - Delphi
摘要：procedure Tfrm_jz.Edit1KeyPress(Sender: TObject; var Key: Char);begin if (key in ['0'..'9',#8,#13]) then begin if key=#13 then begin if length(edit1.Text)>2 then edit1.Text:=copy(edit1.Text ,1,(len...
阅读全文
摘要：在DBGrid的DBGridDrawColumnCell事件中嵌入如下代码：varstrShow: string;begin if (Column.FieldName='lastyear') or (Column.FieldName='thisyear') then //lastyear和thisyear为需要格式化输出的数据表中的字段。 begin if not Column.Field.IsN...
阅读全文
摘要：procedure importtodb(strfile,strtable:string); //strfile已经存在的“,”分隔符文本文件；strtable为数据库表（执行此过程前必须已经清空）var m,i,startnum:integer; txtline:string; FilVar:textfile;beginif FileExists(strfile) the...
阅读全文
摘要：var SaveDlg:TSaveDialog; hFile:TextFile; i:integer; begin SaveDlg:=TSaveDialog.create(self); if SaveDlg.Execute then EditSaveDir.Text:=SaveDlg.FileName; assignfile(hFile,EditSaveDir.Text); ReWrite(h...
阅读全文
摘要：var myrecord:integer;myopensql('Select * From cx_consumable');if datamod.ADOQuery1.Bof and datamod.ADOQuery1.Eof then//这里是无记录时进行的操作else begin combobox1.Clear; for myrecord:=1 to datamod.ADOQuery1.Reco...
阅读全文
摘要：function IsNum(str: string): Boolean; var i: Integer; begin Result := True; for i := 1 to Length(str) do if not (str[i] in ['0'..'9']) then begin Result := False; Break; end; end;
阅读全文
摘要：函数实现（code)function DaysInAMonth(const AYear,AMonth:Word):Word;begin Result:=MonthDays[IsLeapYear(Ayear)][AMonth];end;函数调用varaa:word;begin aa:=DaysInAMonth(2009,12); //aa的值为31end;判断是否为润年functionIsLeapY...
阅读全文
摘要：1.Date 功能说明：返回当前的日期。 参考实例： procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := '今天是：' + DateToStr(Date); end; Label显示为：今天是2005年1月1日。 2.DateToStr 功能说明：将日期型转换为字符型。 参考实例： ...
阅读全文
摘要：表示关闭的有hideclosefreereleasedestroyterminatefreeandnil()haltfree:先判断不为空再destroy。释放对象，对于窗体来说，只会释放对象，而不将窗体对象的指针指向nil，所以free后用assigned函数来判断还是返回true．只有freeandnil或free后再将指针指向nil．destroy：不判断直接释放。如果对象已经释放的话会报错...
阅读全文
摘要：一、字符转换函数1、ord(input[i])返回字符表达式 input 左端起第 I 字符的ASCII 码值。2、CHAR()将ASCII 码转换为字符。如果没有输入0 ~ 255 之间的ASCII 码值，CHAR（） 返回NULL 。3、LOWER()和UPPER()LOWER()将字符串全部转为小写；UPPER()将字符串全部转为大写。4、STR()把数值型数据转换为字符型数据。STR (&...
阅读全文
摘要：如果需要让别的单元可以调用，可以新建一个公共单元并在interface部分,var声明如下。unit Unit_common;interfaceuses SysUtils;//如有必要还可添加其它单元名。var function mytest(i : integer): string;implementationfunction mytest(i: integer): string;var//如有...
阅读全文
摘要：常用的键盘key值 Backspace->8 Tab->9 Return->13 Pause->19 CapsLock->20 Esc->27 Space->32 PageUp->33 PageDown->34 End->35 Home->36 LeftArrow->37 UpArrow->38...
阅读全文
摘要：工程文件 programstuResult; uses Forms, controls, loginin'login.pas'{loginform}, MainFrmin'MainFrm.pas'{mainform}, resultFrmin'resultFrm.pas'{resultform}, dmFrmin'dmFrm.pas'{DM:TDataModule}, termAddin'ter...
阅读全文
摘要：新建一个公用单元，专门放置公用全局变量unit untCommon;interfacevarv1:integer;v2:string;end.-----------------unit unit1;interfaceuseswindows, ................, untCommon ; //在每个需要使用v1、v2变量的单元中引用上面那个单元untCommon就可以了
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); proced...
阅读全文
摘要：名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 在堆...
阅读全文
摘要：INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件 一．INI文件的结构 [小节名]ini文件 关键字1＝值1 关键子2＝值2 INI文件...
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Cli...
阅读全文
摘要：var S: string; begin S := '计算机世界'; S := Copy(S, 1, 6); { '计算机' } end;
阅读全文
摘要：Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明： function Format(const Format: string; const Args: array of const): string; overload; ...
阅读全文
浙公网安备 33010602011771号