2022-12-24 27 0

function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合vari:integer;beginVaule:=trim(Vaule); //去空格知for i:=1 to length(Vaule) do //准备循环beginif ( Vaule[i] in ['A'..'Z']) or ( Vaule[i] in ['a'..'z']) then //如果Vaule的第i个字不道是A-

2022-12-24 35 0

//正则版uses RegularExpressions; //相关单元function IsChineseStr(s: String): Boolean;constpattern ='[\x{4E00}-\x{9FA5}]'; //测试用的表达式beginResult:=false;if TRegEx.IsMatch(s, pattern) thenbeginResult:=True; end;end; //非正则版function isChina(S: string): Boolea

2022-12-24 28 0

var d: TDateTime;begin d:= Now();//--------------------代码//--------------------- StatusBar1.Panels[0].Text:='耗时：'+ FormatDateTime('hh:nn:ss.zzz', (Now-d));

2022-12-24 50 0

绘制时钟可以非常直观得看到时间，方便的客户体验，但是网上的绘制都是 1秒 1秒绘制，我这里把时分秒角度非常精确绘制出来。看到起让人更佳舒畅。下面开始教学使用方法：界面上放上 Circle 作为时针盘面。然后放入 TLine 作为 时 分 秒 命名为 LSec; LMin; LHou;最后放一个 Timer ，间隔触发修改为 6 ，让Timer第6豪秒 实时改变时分秒的角度最后在 timer事件写下计算代码如下：procedure TForm1.Timer1Timer(Sen

2022-12-24 65 0

delphi vcl 的 TPageControl 控件，实现对页签的拖动我们在TPageControl 控件里 放了几个页签，但很多时候我们的需求是把某个页签放前面 和 另一个旁边的方便切换做对比。这个可以有更好的体验，类似Delphi IDE编辑器一样切换页签。分别 在 DragDrop 、DragOver 、MouseDown 事件写上对应代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Grap

2022-12-24 41 0

很多时候，中国的日历生辰八字都会用不用 汉字的大写来写，这个函数专门为那些想要让时间大写的人提供使用，让时间变得更有意义。function DateToCapital(datetime: TDateTime): string;const Capital: array[0..9] of string = ('零', '壹', '贰', '叁', '肆', '伍', '陆', '柒'

2022-12-24 33 0

解决办法：文件路径加双引号

2022-12-24 51 0

delphi fmx 截图从 FMX.Controls.TControl 继承下来的控件都可以调用一个函数 MakeScreenshot，返回 TBitmap。所以 任意 fmx 控件 都可以使用此函数来截图。如：截取 Button1 的图并在 Image1 上显示procedure TForm1.Button1Click(Sender: TObject);begin Image1.Bitmap.Assign(Button1.MakeScreenshot());end;来源：http://www.d