2022-12-30 35 0

delphi 四舍五入取整函数一、四舍五入法 四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。 所谓算术舍入法，就是我们通常意义上的四舍五入法。其规则是：当舍去位的数值大于等于5时，在舍去该位的同时向前位进一；当舍去位的数值小于5时，则直接舍去该位。 所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当舍去位的数值大于等于6 时，在舍去该位的同时向前位进一；当舍去位的数值等于5时，如果前位数

2022-12-30 31 0

uses DateUtils;方法1：function DaysInAMonth(const AYear, AMonth: Word): Word; 方法2：function GetDays(Year, Month): Word;beginResult := MonthDays[IsLeapYear(Year), Month];end;Word 相当于 integer

2022-12-30 42 0

uses System.StrUtils;function ExtractPathURLToCompleteURL ( URL : string ) : string;var Temp : string; Position : Integer;begin if RightStr( Trim(URL) , 1) = '/' then Temp := URL else begin Position := Length( URL );

2022-12-29 31 0

function UrlAddSlash( URL : string ) : string;begin if ( Copy( URL, length(URL), 1 ) <> '/') then Result := Trim(URL) + '/' else Result := Trim(URL);end;procedure TForm1.FormCreate(Sender: TObject);beginmemo1.Text:=UrlAddSlash(

2022-12-29 31 0

uses Androidapi.JNIBridge, Androidapi.IOUtils,function GetAppPath: string;begin{$IF Defined(ANDROID)} Result := ExtractFilePath( ExcludeTrailingPathDelimiter( System.IOUtils.TPath.GetHomePath));{$ELSE} Result := ExtractFilePath(ParamStr(0));{$E

2022-12-29 70 0

delphi xe10 传感器操作MotionSensor1: TMotionSensor; 加速传感器MotionSensor1.Sensor(AngleAccelX、AngleAccelY、AngleAccelZ)加速度procedure TAccelerometerForm.Timer1Timer(Sender: TObject);var LProp: TCustomMotionSensor.TProperty;begin for LProp in MotionSensor1.Sensor.

2022-12-29 82 0

//截取屏幕图片function MakeScaleScreenshot(Sender: TControl): TBitmap; function GetScreenScale: Single; var ScreenService: IFMXScreenService; begin Result := 1; if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(Scr

2022-12-29 35 0

//引用单元 FMX.Android.DeviceInfo.GetInformation; Memo1.Lines.Add('ID:'+FMX.Android.DeviceInfo.ID); Memo1.Lines.Add('IMEI:'+FMX.Android.DeviceInfo.IMEI); Memo1.Lines.Add('User:'+FMX.Android.DeviceInfo.User); Memo1.Lines.Add('