2022-12-25 221 0

1、日期转换成时间戳function Gettimestamp: string;begin Result := inttostr(DateTimeToUnix(IncHour(Now,-8))); // 本地时间减8小时end;2、时间戳转换成日期function UnixDateToDateTime(const USec: Longint): TDateTime;constUnixStartDate: TDateTime = 25569.0; // 1970/01/01beginResult:= (

2022-12-25 58 0

procedure TForm1.Button1Click(Sender: TObject);var ADate: String; ADate2: TDate; AFormat, AFormat2: TFormatSettings;begin AFormat.ShortDateFormat := 'ee/mm/dd'; AFormat.DateSeparator := '/'; ADate := '94/05/15'; ADat

2022-12-25 83 0

一、dll文件的制作1、创建dll工程文件：File->New->DLL Wizard 保存为PackDll；2、创建rc文件：File->New->Text 保存为DllRes.rc;3、向rc文件中添加资源4、把rc文件加入到工程中：View->Project Manage(Ctrl+Alt+F11)->Add->DllRes.rc此时，工程文件中会自动添加一行内容 "{$R 'DllRes.res' 'DllRes.rc&

2022-12-25 58 0

在网页上经常使用世界时间，但是往往 本地使用的时候，都要转成本地时间 和 时间类型的。这样就很好地可以把网页或网站上的世界时间同步到本地来。世界时间转换，如： Sun, 10 May 2020 21:49:45 GMT在 IdGlobalProtocols 单元有一个函数 ，GMTToLocalDateTime 它可以转换 TDateTime 时间类型。使用方法procedure TForm1.Button1Click(Sender: TObject);var t: TDateTime;begi

2022-12-25 43 0

var month: Integer;begin Writeln('请输入对应的月份：'); Readln(month); case month of 3,4,5: Writeln('春季'); 6,7,8: Writeln('夏季'); 9,10,11: Writeln('秋季'); 1,2,12: Writeln('冬季'); else Writeln('非法数字'

2022-12-25 25 0

function IsChineseString(s: String): Boolean; var jg:integer; begin Result :=false; asm var aa= s; var reg = new RegExp("[\\u4E00-\\u9FFF]+","g"); if(reg.test(aa) ){ // alert("含有汉字"); jg=1; } end; if jg=1 the

2022-12-25 33 0

procedure TForm1.Button1Click(Sender: TObject);var str : string; pStr : PWideChar; isHZ : Boolean; i , s, m : Integer; byteArr : TBytes;begin str := Trim('23432432223432423'); pStr := PWideChar( str ); byteArr := WideBytesOf(str); while

2022-12-24 57 0

function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合vari:integer;beginVaule:=trim(Vaule); //去空格知for i:=1 to length(Vaule) do //准备循环beginif ( Vaule[i] in ['0'..'9']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回beginresult:=true; //返回值 不是e