Delphi6函数大全4-SysUtils.pas

Delphi6函数大全4-SysUtils.pas

首部      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
功能 分解日期为年、月、日、星期
说明 [DOW

ay 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);
━━━━━━━━━━━━━━━━━━━━━
首部 function      TryStrToDate(const S: string; out Value: TDateTime): Boolean;      $[SysUtils.pas
功能 返回字符串S转换成日期Value是否成功
说明      字符非日期表达时返回False并且Value将输出为0
参考 <NULL>
例子
///Begin      TryStrToDate
procedure TForm1.Button1Click(Sender:      TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked :=      TryStrToDate(Edit1.Text, vDateTime);
DateTimePicker1.Date :=      vDateTime;
end;
///End      TryStrToDate
━━━━━━━━━━━━━━━━━━━━━
首部 function StrToTime(const S:      string): TDateTime; $[SysUtils.pas
功能 返回字符串S转换成时间
说明      字符非时间表达时将引起异常
参考 function SysUtils.TryStrToTime
例子      DateTimePicker1.Time :=      StrToTime(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function      StrToTimeDef(const S: string; const Default: TDateTime): TDateTime;      $[SysUtils.pas
功能 返回字符串S转换成时间
说明 字符非时间表达时则返回默认值Default
参考      function SysUtils.TryStrToTime
例子 DateTimePicker1.Time :=      StrToTimeDef(Edit1.Text, Time);
━━━━━━━━━━━━━━━━━━━━━
首部 function      TryStrToTime(const S: string; out Value: TDateTime): Boolean;      $[SysUtils.pas
功能 返回字符串S转换成时间Value是否成功
说明      字符非时间表达时返回False并且Value将输出为0
参考 <NULL>
例子
///Begin      TryStrToTime
procedure TForm1.Button1Click(Sender:      TObject);
var
vDateTime: TDateTime;
begin
CheckBox1.Checked :=      TryStrToTime(Edit1.Text, vDateTime);
DateTimePicker1.Time :=      vDateTime;
end;
///End      TryStrToTime
━━━━━━━━━━━━━━━━━━━━━
首部 function StrToDateTime(const      S: string): TDateTime; $[SysUtils.pas
功能 返回字符串S转换成日期时间
说明      字符非日期时间表达时将引起异常
参考 function SysUtils.TryStrToDateTime
例子 Edit1.Text      :=      DateTimeToStr(StrToDateTime(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部      function StrToDateTimeDef(const S: string; const Default: TDateTime):      TDateTime; $[SysUtils.pas
功能 返回字符串S转换成日期时间
说明      字符非日期时间表达时则返回默认值Default
参考 function SysUtils.TryStrToDateTime
例子      Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text,      Now));
━━━━━━━━━━━━━━━━━━━━━
首部 function TryStrToDateTime(const S:      string; out Value: TDateTime): Boolean; $[SysUtils.pas
功能      返回字符串S转换成日期时间Value是否成功
说明 字符非日期时间表达时返回False并且Value将输出为0
参考      <NULL>
例子
///Begin TryStrToDateTime
procedure      TForm1.Button1Click(Sender: TObject);
var
vDateTime:      TDateTime;
begin
CheckBox1.Checked := TryStrToDateTime(Edit1.Text,      vDateTime);
Edit2.Text :=      DateTimeToStr(vDateTime);
end;
///End      TryStrToDateTime
━━━━━━━━━━━━━━━━━━━━━
首部 function      FormatDateTime(const Format: string; DateTime: TDateTime): string;      $[SysUtils.pas
功能 返回用指定的格式Format来格式化日期时间DateTime
说明      FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate('2002-03-09')) =      '2002年03月09日'
参考 function SysUtils.DateTimeToString
例子 Edit2.Text :=      FormatDateTime(Edit1.Text, Now);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure      DateTimeToString(var Result: string; const Format: string; DateTime:      TDateTime); $[SysUtils.pas
功能      用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中
说明      <参见FormatDateTime>
参考 function System.SetString
例子      <参见FormatDateTime>
━━━━━━━━━━━━━━━━━━━━━
首部 function      FloatToDateTime(const Value: Extended): TDateTime; $[SysUtils.pas
功能      返回浮点数转换成日期时间类型
说明 如果浮点数超出范围将触发异常
参考 function System.Int
例子      Edit2.Text := DateTimeToStr(FloatToDateTime(StrToFloatDef(Edit1.Text,      0)));
━━━━━━━━━━━━━━━━━━━━━
首部 function SysErrorMessage(ErrorCode:      Integer): string; $[SysUtils.pas
功能 返回系统中错误代码所对应的信息
说明      此函可以有助于已习惯Windows编程的用户使用
参考 function Windows.FormatMessage;function      System.SetString
例子 Edit1.Text :=      SysErrorMessage(SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string;      platform; $[SysUtils.pas
功能 返回当前系统指定参数的字符串值
说明      GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)'
参考      function Windows.GetLocaleInfo
例子 Edit1.Text :=      GetLocaleStr(GetThreadLocale, SpinEdit1.Value,      '<NULL>');
━━━━━━━━━━━━━━━━━━━━━
首部 function      GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char; platform;      $[SysUtils.pas
功能 返回当前系统指定参数的字符值
说明 GetLocaleChar(GetThreadLocale,      LOCALE_STHOUSAND, #0) = ','
参考 function Windows.GetLocaleInfo
例子      Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE,      #0);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure GetFormatSettings;      $[SysUtils.pas
功能 恢复系统参数设置
说明 日期时间格式等
参考 function      Windows.GetThreadLocale;function      Windows.GetLocaleStr
例子
///Begin GetFormatSettings
procedure      TForm1.Button1Click(Sender: TObject);
begin
ShortDateFormat :=      'YYYY"年"MM"月"DD"日"';
ShowMessage(DateToStr(Date));
GetFormatSettings;
ShowMessage(DateToStr(Date));
end;
///End      GetFormatSettings
━━━━━━━━━━━━━━━━━━━━━

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.hqwc.cn/news/312566.html

如若内容造成侵权/违法违规/事实不符，请联系编程知识网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

CodeWave赋能创新的全功能技术平台

CodeWave赋能创新的全功能技术平台

目录 前言1 应用中心2 资产中心&#xff1a;汇聚创新能量&#xff0c;提供开发加速3 集成中心3.1 API管理3.2 报表管理 4 运维中心4.1 资源监控4.2 用户管理4.3 权限管理4.4 日志与监控 5 配置中心5.1 源码配置5.2 镜像仓库配置5.3 数据库配置5.4 报表配置5.5 资产配置5.6 品牌…
阅读更多...
R_handbook_作图专题

R_handbook_作图专题

ggplot基本作图 1 条形图 library(ggplot2) ggplot(biopics) geom_histogram(aes(x year_release),binwidth1,fill"gray") 2 堆砌柱状图 ggplot(biopics, aes(xyear_release)) geom_bar(aes(fillsubject_sex)) 3 堆砌比例柱状图 ggplot(biopics, aes(xyear_rele…
阅读更多...
fastApi 项目部署

fastApi 项目部署

方式一&#xff0c;Uvicorn部署 Run a Server Manually - Uvicorn - FastAPI 1&#xff0c;linux服务器安装 python>3.8 2&#xff0c;安装 uvicorn : pip install "uvicorn[standard]" 3&#xff0c;上传项目到服务器 main.py from typing imp…
阅读更多...
「实验记录」CS144 Lab1 StreamReassembler

「实验记录」CS144 Lab1 StreamReassembler

目录 一、Motivation二、SolutionsS1 - StreamReassembler的对外接口S2 - push_substring序列写入ByteStream 三、Result四、My Code五、Reference 一、Motivation 我们都知道 TCP 是基于字节流的传输方式&#xff0c;即 Receiver 收到的数据应该和 Sender 发送的数据是一样的…
阅读更多...
.NET进阶篇06-async异步、thread多线程2

.NET进阶篇06-async异步、thread多线程2

知识须要不断积累、总结和沉淀&#xff0c;思考和写做是成长的催化剂web 内容目录 1、线程Thread 一、生命周期 二、后台线程 三、静态方法 1.线程本地存储 2.内存栅栏 四、返回值 2、线程池ThreadPool 一、工做队列 二、工做线程和IO线程 三、和Thread区别 四、定时器 1、线…
阅读更多...
概率的 50 个具有挑战性的问题 [8/50]：完美的桥牌

概率的 50 个具有挑战性的问题 [8/50]：完美的桥牌

一、说明 我最近对与概率有关的问题产生了兴趣。我偶然读到了弗雷德里克莫斯特勒&#xff08;Frederick Mosteller&#xff09;的《概率论中的五十个具有挑战性的问题与解决方案》&#xff09;一书。我认为创建一个系列来讨论这些可能作为面试问题出现的迷人问题会很有趣。每篇…
阅读更多...
【Redis-03】Redis数据结构与对象原理 -下篇

【Redis-03】Redis数据结构与对象原理 -下篇

承接上篇【Redis-02】Redis数据结构与对象原理 -上篇 8. type-字符串string 8.1 字符串的三种encoding编码&#xff08;int embstr raw&#xff09; 如果保存的是整型&#xff0c;并且可以用long类型标识&#xff08;-9223372036854775808到9223372036854775807&#xff09…
阅读更多...
怎么挑选猫粮？挑选主食冻干猫粮的步骤

怎么挑选猫粮？挑选主食冻干猫粮的步骤

各位铲屎官都知道猫天性是食肉动物&#xff0c;无肉不欢的。而冻干猫粮对于猫咪来说是最好还原猫咪食肉天性的食物&#xff0c;不仅可以当成猫咪的主食&#xff0c;也可以用来给猫咪当成零食&#xff0c;帮助猫咪补充营养。冻干猫粮是经过真空冷冻干燥处理的鲜肉&#xff0c;能…
阅读更多...
菜鸟网络Java实习一面面经

菜鸟网络Java实习一面面经

自我介绍&#xff0c;做过的项目 巴拉巴拉 你项目中用到redis&#xff0c;可以介绍一下为什么使用它吗&#xff1f; 基于内存操作&#xff0c;内存读写速度快。 支持多种数据类型&#xff0c;包括String、Hash、List、Set、ZSet等。 支持持久化。Redis支持RDB和AOF两种持久…
阅读更多...
探索 Vue 异步组件的世界：解锁高效开发的秘密（上）

探索 Vue 异步组件的世界：解锁高效开发的秘密（上）

&#x1f90d; 前端开发工程师&#xff08;主业&#xff09;、技术博主&#xff08;副业&#xff09;、已过CET6 &#x1f368; 阿珊和她的猫_CSDN个人主页 &#x1f560; 牛客高级专题作者、在牛客打造高质量专栏《前端面试必备》 &#x1f35a; 蓝桥云课签约作者、已在蓝桥云…
阅读更多...
Vue-Setup

Vue-Setup

一、setup概述 小小提示&#xff1a;vue3中可以写多个根标签。 Person.vue中内容 <template><div class"person"><h2>姓名&#xff1a;{{name}}</h2><h2>年龄&#xff1a;{{age}}</h2><!--定义了一个事件&#xff0c;点击这…
阅读更多...
SpringCloud 和 Linux 八股文第三期五问五答

SpringCloud 和 Linux 八股文第三期五问五答

SpringCloud 和 Linux 八股文第三期五问五答 作者&#xff1a;程序员小白条&#xff0c;个人博客 相信看了本文后&#xff0c;对你的面试是有一定帮助的&#xff01; ⭐点赞⭐收藏⭐不迷路&#xff01;⭐ 1&#xff09;Linux常用命令 2&#xff09;如何查看测试项目的日志 一…
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023