Delphi函数大全3

首部  procedure StrDispose(Str: PChar); $[SysUtils.pas
功能  释放指针字符串Str内存资源
说明  如果Str为nil则不作任何处理;并且释放空间大小信息
参考  function System.Dec;function System.SizeOf;function System.FreeMem
例子  <参见StrNew>
━━━━━━━━━━━━━━━━━━━━━
首部  function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的字符形式
说明  这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解
"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型
Format('x=%d', [12]); //'x=12' //最普通
Format('x=%3d', [12]); //'x= 12' //指定宽度
Format('x=%f', [12.0]); //'x=12.00' //浮点数
Format('x=%.3f', [12.0]); //'x=12.000' //指定小数
Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置
Format('x=%.5d', [12]); //'x=00012' //前面补充0
Format('x=%.5x', [12]); //'x=0000C' //十六进制
Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引
Format('x=%p', [nil]); //'x=00000000' //指针
Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法
Format('x=%%', []); //'x=%' //得到"%"
S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串
参考  proceduer SysUtils.FmtStr
例子  Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]);
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $[SysUtils.pas
功能  按指定方式格式化一个数组常量的字符形式返回
说明  <参见Format>
参考  function SysUtils.FormatBuf;function System.Length;function System.SetLength
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的字符指针形式
说明  如果Buffer和Format其中只要有一个为nil则返回nil
参考  function SysUtils.FormatBuf
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[SysUtils.pas
功能  返回按指定方式和长度格式化一个数组常量的字符指针形式
说明  StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1';
参考  function SysUtils.FormatBuf
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量到缓冲区Buffer中
说明  <NULL>
参考  <NULL>
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function WideFormat(const Format: WideString; const Args: array of const): WideString; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的多字节字符形式
说明  <NULL>
参考  procedure SysUtils.WideFmtStr
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  procedure WideFmtStr(var Result: WideString; const Format: WideString; const Args: array of const); $[SysUtils.pas
功能  按指定方式格式化一个数组常量的多字节字符形式返回
说明  <NULL>
参考  function SysUtils.WideFormatBuf
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量到缓冲区Buffer中
说明  <NULL>
参考  <NULL>
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToStr(Value: Extended): string; $[SysUtils.pas
功能  返回浮点数Value转换成字符串
说明  当浮点数大等于1E15将采用科学记数法
参考  function SysUtils.FloatToText
例子  Edit1.Text := FloatToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function CurrToStr(Value: Currency): string; $[SysUtils.pas
功能  返回货币数Value转换成字符串
说明  货币数只保留四位小数
参考  function SysUtils.FloatToText
例子  Edit1.Text := CurrToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas
功能  返回浮点数Value转换成货币数
说明  如果浮点数Value超出范围则将触发异常
参考  const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
例子  Edit1.Text := CurrToStr(FloatToCurr(Now));
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas
功能  返回浮点数以指定格式转换成字符串
说明  Precision指定精度;Digits指定小数宽度
参考  function SysUtils.FloatToText
例子
///////Begin FloatToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffExponent, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffFixed, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffNumber, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
end;
///////End FloatToStrF
━━━━━━━━━━━━━━━━━━━━━
首部  function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils.pas
功能  返回货币类型以指定格式转换成字符串
说明  Digits指定小数宽度
参考  function SysUtils.FloatToText
例子
///////Begin CurrToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffGeneral, SpinEdit1.Value);
  Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffExponent, SpinEdit1.Value);
  Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffFixed, SpinEdit1.Value);
  Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffNumber, SpinEdit1.Value);
  Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffCurrency, SpinEdit1.Value);
end;
///////End CurrToStrF
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $[SysUtils.pas
功能  返回浮点数以指定格式转换成指针字符串的内存大小
说明  Precision指定精度;Digits指定小数宽度
参考  <NULL>
例子
///////Begin FloatToText
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
  E: Extended;
begin
  E := StrToFloatDef(Edit1.Text, 0);
  SpinEdit3.Value := FloatToText(vBuffer, E,
    fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value);
  Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value);
end;
///////End FloatToText(
━━━━━━━━━━━━━━━━━━━━━
首部  function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas
功能  返回浮点数类型以指定格式字符串Format转换成字符串
说明  FormatFloat(',.00', 1234567890) = '1,234,567,890.00'
参考  function SysUtils.FloatToTextFmt
例子  Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部  function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas
功能  返回货币类型以指定格式字符串Format转换成字符串
说明  FormatCurr(',.00', 1234567890) = '1,234,567,890.00'
参考  function SysUtils.FloatToTextFmt
例子  Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format: PChar): Integer; $[SysUtils.pas
功能  返回浮点数以指定格式字符串Format转换成指针字符串的内存大小
说明  ValueType指定无类型参数Value的类型
参考  <NULL>
例子
///////Begin FloatToTextFmt
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
  E: Extended;
begin
  E := StrToFloatDef(Edit1.Text, 0);
  SpinEdit1.Value := FloatToTextFmt(vBuffer, E,
    fvExtended, PChar(Edit2.Text));
  Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value);
end;
///////End FloatToTextFmt
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToFloat(const S: string): Extended; $[SysUtils.pas
功能  返回字符串S转换成浮点数
说明  字符串非浮点数表达时将引起异常
参考  function SysUtils.TextToFloat
例子  var E: Extended; begin E := StrToFloat(Edit1.Text); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas
功能  返回字符串S转换成浮点数
说明  字符串非浮点数表达时则返回默认值Default
参考  function SysUtils.TextToFloat
例子  var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload; $[SysUtils.pas
首部  function TryStrToFloat(const S: string; out Value: Single): Boolean; overload; $[SysUtils.pas
首部  function TryStrToFloat(const S: string; out Value: Double): Boolean; overload; $[SysUtils.pas
功能  返回字符串S转换成浮点数Value是否成功
说明  字符串非浮点数表达时返回False并且Value将输出为不确定的值
参考  function SysUtils.TextToFloat
例子
///////Begin TryStrToFloat
procedure TForm1.Button1Click(Sender: TObject);
var
  E: Extended;
begin
  CheckBox1.Checked := TryStrToFloat(Edit1.Text, E);
  Edit2.Text := FormatFloat('', E);
end;
///////End TryStrToFloat
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToCurr(const S: string): Currency; $[SysUtils.pas
功能  返回字符串S转换成货币数
说明  字符串非货币数表达时将引起异常
参考  function SysUtils.TextToFloat
例子  var C: Currency; begin C := StrToCurr(Edit1.Text); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToCurrDef(const S: string; const Default: Currency): Currency; $[SysUtils.pas
功能  返回字符串S转换成货币数
说明  字符串非货币数表达时则返回默认值Default
参考  function SysUtils.TextToFloat
例子  var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToCurr(const S: string; out Value: Currency): Boolean; $[SysUtils.pas
功能  返回字符串S转换成货币数Value是否成功
说明  字符串非货币数表达时返回False并且Value将输出为不确定的值
参考  function SysUtils.TextToFloat
例子
///////Begin TryStrToCurr
procedure TForm1.Button1Click(Sender: TObject);
var
  C: Currency;
begin
  CheckBox1.Checked := TryStrToCurr(Edit1.Text, C);
  Edit2.Text := FormatCurr('', C);
end;
///////End TryStrToCurr
━━━━━━━━━━━━━━━━━━━━━
首部  function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $[SysUtils.pas
功能  返回将指针字符串Buffer转换成无类型变量Value
说明  ValueType指定无类型参数Value的类型
参考  <NULL>
例子
///////Begin TextToFloat
procedure TForm1.Button1Click(Sender: TObject);
var
  E: Extended;
begin
  CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,
    fvExtended);
  Edit2.Text := FormatFloat('', E);
end;
///////End TextToFloat
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FloatToDecimal(var Result: TFloatRec; const Value; ValueType: TFloatValue; Precision, Decimals: Integer); $[SysUtils.pas
功能  将浮点数转换成浮点结构类型并返回到Result
说明  ValueType指定类型recision指定精度;Decimals指定小数
参考  type SysUtils.TFloatRec
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━  
首部  function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; $[SysUtils.pas
功能  返回日期时间类型转换成时间结构类型
说明  <NULL>
参考  type SysUtils.TTimeStamp
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部  function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime; $[SysUtils.pas
功能  返回时间结构类型转换成日期时间类型
说明  <NULL>
参考  type SysUtils.TTimeStamp
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部  function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; $[SysUtils.pas
功能  返回微妙转换成时间结构类型
说明  <NULL>
参考  type SysUtils.TTimeStamp
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部  function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp; $[SysUtils.pas
功能  返回时间结构类型转换成微妙
说明  <NULL>
参考  type SysUtils.TTimeStamp
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部  function EncodeDate(Year, Month, Day: Word): TDateTime; $[SysUtils.pas
功能  返回合并年、月、日得到的日期
说明  当出现非法组合时将触发异常
参考  function SysUtils.TryEncodeDate
例子  Edit1.Text := DateToStr(EncodeDate(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value));
━━━━━━━━━━━━━━━━━━━━━
首部  function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; $[SysUtils.pas
功能  返回合并时、分、秒、微秒得到的时间
说明  当出现非法组合时将触发异常
参考  function SysUtils.TryEncodeTime
例子  Edit1.Text := TimeToStr(EncodeTime(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value, SpinEdit4.Value));
━━━━━━━━━━━━━━━━━━━━━
首部  function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean; $[SysUtils.pas
功能  返回合并年、月、日得到的日期是否成功
说明  当出现非法组合时将返回False并且Date输出为0
参考  function SysUtils.IsLeapYear
例子
///////Begin TryEncodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
  vDate: TDate;
begin
  CheckBox1.Checked := TryEncodeDate(SpinEdit1.Value, SpinEdit2.Value,
    SpinEdit3.Value, TDateTime(vDate));
  Edit1.Text := DateToStr(vDate);
end;
///////End TryEncodeDate
━━━━━━━━━━━━━━━━━━━━━
首部  function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean; $[SysUtils.pas
功能  返回合并时、分、秒、微秒得到的时间是否成功
说明  当出现非法组合时将返回False并且Time输出为0
参考  const SysUtils.MSecsPerDay
例子
///////Begin TryEncodeTime
procedure TForm1.Button1Click(Sender: TObject);
var
  vTime: TTime;
begin
  CheckBox1.Checked := TryEncodeTime(SpinEdit1.Value, SpinEdit2.Value,
    SpinEdit3.Value, SpinEdit3.Value, TDateTime(vTime));
  Edit1.Text := TimeToStr(vTime);
end;
///////End TryEncodeTime
━━━━━━━━━━━━━━━━━━━━━
首部  procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); $[SysUtils.pas
功能  分解日期为年、月、日
说明  <NULL>
参考  function SysUtils.DecodeDateFully
例子
///////Begin DecodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  SpinEdit1.Value := Year;
  SpinEdit2.Value := Month;
  SpinEdit3.Value := Day;
end;
///////End DecodeDate
━━━━━━━━━━━━━━━━━━━━━
首部  function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas
功能  分解日期为年、月、日、星期
说明  [DOWay Of Week]
参考  function SysUtils.DateTimeToTimeStamp
例子
///////Begin DecodeDateFully
procedure TForm1.Button1Click(Sender: TObject);
var
  Year, Month, Day, DOW: Word;
begin
  DecodeDateFully(Date, Year, Month, Day, DOW);
  SpinEdit1.Value := Year;
  SpinEdit2.Value := Month;
  SpinEdit3.Value := Day;
  SpinEdit4.Value := DOW;
end;
///////End DecodeDateFully
━━━━━━━━━━━━━━━━━━━━━
首部  function InternalDecodeDate(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas
功能  <NULL>
说明  Kylix函数
参考  function SysUtils.DecodeDateFully
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━  
首部  procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word); $[SysUtils.pas
功能  分解时间为时、分、秒、微妙
说明  <NULL>
参考  function SysUtils.DateTimeToTimeStamp
例子
///////Begin DecodeTime
procedure TForm1.Button1Click(Sender: TObject);
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Time, Hour, Min, Sec, MSec);
  SpinEdit1.Value := Hour;
  SpinEdit2.Value := Min;
  SpinEdit3.Value := Sec;
  SpinEdit4.Value := MSec;
end;
///////End DecodeTime
━━━━━━━━━━━━━━━━━━━━━
首部  procedure DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils.pas
功能  返回日期时间类型转换成系统时间类型
说明  <NULL>
参考  function SysUtils.DecodeDateFully;function SysUtils.DecodeTime
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部  function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; $[SysUtils.pas
功能  返回系统时间类型转换成日期时间类型
说明  <NULL>
参考  function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子  <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部  function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas
功能  返回日期时间DateTime所在的星期
说明  1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)
参考  function SysUtils.DateTimeToTimeStamp
例子  
///////Begin DayOfWeek
procedure TForm1.Button1Click(Sender: TObject);
const
  cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
  Edit1.Text := cWeekCn[DayOfWeek(Now)];
end;
///////End DayOfWeek
━━━━━━━━━━━━━━━━━━━━━
首部  function Date: TDateTime; $[SysUtils.pas
功能  返回当前日期
说明  Date - Int(Date)=0;
参考  function SysUtils.DateTimeToString
例子  Edit1.Text := DateToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function Time: TDateTime; $[SysUtils.pas
功能  返回当前时间
说明  Time - Frac(Time)=0;
参考  function Windows.GetLocalTime;function SysUtils.EncodeTime
例子  Edit1.Text := TimeToStr(Time);
━━━━━━━━━━━━━━━━━━━━━
首部  function Now: TDateTime; $[SysUtils.pas
功能  返回当前日期时间
说明  Date + Time=Now
参考  function Windows.GetLocalTime;function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子  Edit1.Text := DateTimeToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function CurrentYear: Word; $[SysUtils.pas
功能  返回当前年份
说明  <NULL>
参考  function Windows.GetLocalTime
例子  SpinEdit1.Value := CurrentYear;
━━━━━━━━━━━━━━━━━━━━━
首部  function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1): TDateTime; $[SysUtils.pas
功能  返回增加月份给日期
说明  NumberOfMonths为负数时则减月份
参考  procedure SysUtils.DecodeDate;procedure SysUtils.IncAMonth;function SysUtils.EncodeDate;procedure SysUtils.ReplaceTime
例子  DateTimePicker1.Date := IncMonth(Date, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━  
首部  procedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1); $[SysUtils.pas
功能  返回增加月份给年月日
说明  NumberOfMonths为负数时则减月份
参考  procedure System.Inc
例子
///////Begin IncAMonth
procedure TForm1.Button1Click(Sender: TObject);
var
  vYear, vMonth, vDay: Word;
begin
  DecodeDate(Date, vYear, vMonth, vDay);
  IncAMonth(vYear, vMonth, vDay, SpinEdit1.Value);
  DateTimePicker1.Date := EncodeDate(vYear, vMonth, vDay);
end;
///////End IncAMonth
━━━━━━━━━━━━━━━━━━━━━
首部  procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime); $[SysUtils.pas
功能  用时间NewTime替换日期时间DateTime的时间部分
说明  Int(DateTime) + Frac(NewTime)
参考  function System.Trunc;function System.Abs;function System.Frac
例子
///////Begin ReplaceTime
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  vDateTime := Now;
  ReplaceTime(vDateTime, DateTimePicker1.Time);
  Edit1.Text := DateTimeToStr(vDateTime);
end;
///////End ReplaceTime
━━━━━━━━━━━━━━━━━━━━━
首部  procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime); $[SysUtils.pas
功能  用日期NewDate替换日期时间DateTime的日期部分
说明  Int(NewTime) + Frac(DateTime)
参考  procedure SysUtils.ReplaceTime
例子
///////Begin ReplaceDate
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  vDateTime := Now;
  ReplaceDate(vDateTime, DateTimePicker1.Date);
  Edit1.Text := DateTimeToStr(vDateTime);
end;
///////End ReplaceDate
━━━━━━━━━━━━━━━━━━━━━
首部  function IsLeapYear(Year: Word): Boolean; $[SysUtils.pas
功能  返回年份Year是否是闰年
说明  (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))
参考  <NULL>
例子  CheckBox1.Checked := IsLeapYear(SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能  返回日期DateTime转换成字符串
说明  转换格式由系统变量ShortDateFormat控制
参考  function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat
例子  Edit1.Text := DateToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能  返回时间DateTime转换成字符串
说明  转换格式由系统变量LongTimeFormat控制
参考  function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat
例子  Edit1.Text := TimeToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function DateTimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能  返回日期时间DateTime转换成字符串
说明  转换格式由系统变量ShortDateFormat和LongTimeFormat控制
参考  function SysUtils.DateTimeToString
例子  Edit1.Text := DateTimeToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToDate(const S: string): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成日期
说明  字符非日期表达时将引起异常
参考  function SysUtils.TryStrToDate
例子  DateTimePicker1.Date := StrToDate(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToDateDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成日期
说明  字符非日期表达时则返回默认值Default
参考  function SysUtils.TryStrToDate
例子  DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);
━━━━━━━━━━━━━━━━━━━━━

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: delphidelphi
相关日志: