[Delphi] Delphi Tips

Posted xianeri

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了[Delphi] Delphi Tips相关的知识,希望对你有一定的参考价值。

Delphi Tips

函数篇


函数篇

  • StrToDate()

function StrToDate(const S: string): TDateTime;
function StrToDate(const S: string;
const FormatSettings: TFormatSettings): TDateTime;

StrToDate将给定的字符串转换为日期值。 分隔符只能是为‘‘ / ‘‘, eg: ‘2019-10-01‘, 年值假定在本世纪为0到99之间。 给定字符串只能包含有效日期。

如分隔符不是‘‘ / ‘‘, 如‘‘2010-12-1‘‘, 此时抛错: ‘‘2010-12-1‘‘ is not a valid date‘.为解决此函数固定分隔符的问题。可构造 getformat函数。

function getformat(str: string):string;
var
  I, j: Integer;
begin
  for I := 1 to length(str) do begin
    if not TryStrToInt(str[i], j)  then begin
      result := str[i];
      break;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  dt:  TdateTime;
  formatter, s: string;
begin
  s := '2010-12-1';
  formatter := getformat(s);
  showmessage(datetimetostr(strtodate(stringreplace(s, formatter, '/', [rfReplaceAll]))));
end;

语法篇

未完待续

以上是关于[Delphi] Delphi Tips的主要内容,如果未能解决你的问题,请参考以下文章

Delphi7:快捷键

使用delphi+intraweb进行微信开发1~4代码示例

终于懂了:Delphi重定义消息结构随心所欲,只需要前4个字节是消息编号就行了,跟Windows消息虽然尽量保持一致,但其实相互没有特别大的关系。有了这个,就有了主动,带不带句柄完全看需要。(代码片段

Delphi创建Windows快捷方式

Delphi创建Windows快捷方式

如何在Delphi 10.1 Berlin中安全地访问“共享文件夹”?