whoami-优快云博客

原创 Delphi 给字符串指定开始结束字符返回区间字符串长度

function TForm1.GetDec(aSrc,aStb,aSte:String):Word;var Src,Stb,Ste: String;begin Result:=4; Src:=LowerCase(aSrc); Stb:=LowerCase(aStb); Ste:=LowerCase(aSte); if (not Pos(Stb,Src)>0) or ((Not Pos(Ste+'+',Src)>0) and (Not Pos(Ste+'-',Src)>0)) the

2023-06-28 09:10:52 139 1

原创 RAD StudioXE10.4 控件标签回归传统模式

不用安装DdevExtensions控件在菜单出选择右键勾选 Component 即可。

2021-05-14 17:32:45 325

原创 DDevExtensions 2.87 for XE10.4 全部参数

DDevExtensions 2.87 for XE10.4 这个新版本没有找到哪项是设置delphi控件面板回到传统经典面板的参数设置模块。在2.84版本中有一项是 OldPalette可将面板改为传统的面板，新版本找不到这项设置了。...

2021-05-14 14:42:59 360

转载 TChart 用法说明

VC，delphi，VB，C#都有，无论什么语言，一些属性和方法都是类似的，vb的定义方法With TChart1.Visible = True'删除已有全部系列.RemoveAllSeries.AddSeries 0 '加载一条曲线.Aspect.View3D = False '3D效果.Series(0).Clear.Header.Text.Clear.Axis.Bottom.Title.Ca...

2021-03-19 09:40:10 3261

原创 MSSQL 数据库无法打开恢复操作将数据库标记为SUSPECT的解决(无法分离无法删除)

数据库无法打开恢复操作将数据库标记为SUSPECT的解决(无法分离无法删除)A 先停止数据库服务或者脱机数据库，备份下mdf与ldf文件，然后直接删除ldf文件；B 将脱机的数据重新联机，然后执行下面命令。use mastergoalterdatabasedb_namesetemergencygo--置数据库为单用户模式alter database db_name set single_user with rollback immediatego--重建数据库日志文件...

2020-12-14 15:36:59 2206

原创 Win7多用户下开机只显示一个用户

1、使用快捷键 Win + R 打开运行对话框2、在运行对话框中输入 Regedit 点击确认按钮3、依次展开注册表路径 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList] (注：若在 Winlogon 下无节点，自行创建节点)4、在Use...

2019-02-21 08:30:06 8220

原创 Delphi 基于TTS方式语音朗读

uses Comobj; procedure TTS(TempStr: String);var voice: OLEVariant;begin voice := CreateOLEObject('SAPI.SpVoice'); voice.Speak(TempStr, 0);end;

2015-02-11 15:53:37 6156

原创 SQL 字符串中去除出现汉字之后的字符

CREATE FUNCTION dbo.F_Get_STR (@STR VARCHAR(100))RETURNS VARCHAR(100)AS BEGIN WHILE PATINDEX('%[^a-z,0-9]%',@STR)>0 BEGIN set @s=stuff(@s,patindex('%[^a-z]%',@s)

2014-06-12 10:37:31 890

转载 SQL DateTime 相关函数

SQL DAY() – MONTH( ) – YEAR()DAY('2008-09-30') = 30MONTH('2008-09-30') = 9YEAR('2008-09-30') = 2008SQL DATEPART()DATEPART(day, '2008-09-30 11:35:00.1234567') = 30DATEPART(month, '2008-0

2014-04-08 13:09:17 894

原创 Delphi DBGrid 导出csv

procedure OutPutDBGridToCSV(AGrd:TDBGrid; AQuery: TQuery);var i,ColNum: Integer; Title,Data,SaveName: String; ALst: TStringList;begin try ALst:=TStringList.Create; ALst.Clear

2012-12-17 16:46:53 3387

原创 Delphi TListBox选中项操作

--返回选中项值function GetLstBoxValue(LstBox: TListBox): String;begin Result:=''; Result:=LstBox.Items[LstBox.ItemIndex];end;--返回选中项节点function GetLstBoxIndex(LstBox: TListBox): Integer;beg

2012-12-17 09:16:01 3018