摘要： procedure importtodb(strfile,strtable:string); //strfile已经存在的“,”分隔符文本文件；strtable为数据库表（执行此过程前必须已经清空）var m,i,startnum:integer; txtline:string; FilVar:textfile;beginif FileExists(strfile) the... 阅读全文

摘要： 对于针对字符串位置的操作，第一个位置被标记为1。 ASCII(str) 返回字符串str的最左面字符的ASCII代码值。如果str是空字符串，返回0。如果str是NULL，返回NULL。 mysql> select ASCII('2'); -> 50mysql> select ASCII(2); -> 50mysql> select ASCII('dx'); ->... 阅读全文

摘要： 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... 阅读全文

摘要： 中国建设银行——CBC（Construction Bank of China）——“存不存？” 中国银行——BC（Bank of China）——“不存。” 中国农业银行——ABC（Agriculture Bank of China... 阅读全文

摘要： 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 (&... 阅读全文