摘要： Day 开头的函数使用单元： uses DateUtils●function DateOf(const AValue: TDateTime): TDateTime; 描述： 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 2003/03/19 而 showmessage(DateTimetostr((now()))); 得到的是 2003/03/19 10:50:49●function DateTimeToStr(D 阅读全文

摘要： delphi 时间格式返回2010-01-26 19:28Windows中的时间格式还真不少，什么长日期、短日期，两位年份、四位年份等等，在Delphi中可用FormatDateTime函数输出这些格式，下面介绍它的用法：function FormatDateTime(const Format: string; DateTime: TDateTime): string;Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符：c 以短时间格式显示时间，即全部是数字的表示 FormatdateTime('c' 阅读全文

摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ '.',#8]) then key:=#0; //只能输入小数点end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ ' 0'..'9',#8]) then key:=#0; //只能输入数字end;procedure TForm1.Edit1Key 阅读全文

摘要： 一：如果要插入目标表不存在：select * into 目标表 from 表 where ...二：如果要插入目标表已经存在：insert into 目的表 select * from 表 where 条件三：如果是跨数据库操作的话： 怎么把A数据库的atable表所查询的东西，全部插入到B 数据库的btable表中select * into B.btable from A.atable where ...同样，如果是跨服务器的，也是可以的。 阅读全文

摘要： delphi字符串函数大全━━━━━━━━━━━━━━━━━━━━━首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas功能 返回字符串S转换成全局标识说明 如果字符串非法将触发异常参考 fuction Windows.Succeeded例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));━━━━━━━━━━━━━━━━━━━━━首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pa 阅读全文

摘要： 前言 经常有很多初学者问到在delphi中如何调用SQL Server的存储过程？问题其实很好解决，但问得多了，也就不愿答了。下面我将用实例进行说明，从在SQL Server中创建存储过程到调用的完整实例。 首先,打开sql server管理器,在pubs数据库中建一个测试表,表名为test,字段有id,name,和desc,全部为字符型,如果你不知道建表,那么打开sql查询分析器,贴上以下的代码,然后按执行,就会自动生成test表. use pubs if exists (select * from dbo.sysobjects where id = object_id(N'... 阅读全文

摘要： delphi的字符截取函数LeftStr, MidStr, RightStr这几个函数都包含在StrUtils中，所以需要uses StrUtils; 假设字符串是 Dstr := ’Delphi is the BEST’, 那么 LeftStr(Dstr, 5) := ’Delph’ MidStr(Dstr, 6, 7) := ’i is th’ RightStr(Dstr, 6) := ’e BEST’ ~~~~~~~~~~~~~~~~~~~~~~~~~ function RightStr (Const Str: String; Size: Word): String; begin... 阅读全文