<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[我是谁]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/songjunyi0113</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; songjunyi0113]]></copyright><item><title><![CDATA[Delphi 给字符串指定开始结束字符返回区间字符串长度]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/131429529</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/131429529</guid><author>songjunyi0113</author><pubDate>Wed, 28 Jun 2023 09:10:52 +0800</pubDate><description><![CDATA[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]]></description><category></category></item><item><title><![CDATA[RAD StudioXE10.4 控件标签回归传统模式]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/116799099</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/116799099</guid><author>songjunyi0113</author><pubDate>Fri, 14 May 2021 17:32:45 +0800</pubDate><description><![CDATA[不用安装DdevExtensions控件 在菜单出选择右键 勾选 Component 即可。
]]></description><category></category></item><item><title><![CDATA[DDevExtensions 2.87 for XE10.4 全部参数]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/116790089</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/116790089</guid><author>songjunyi0113</author><pubDate>Fri, 14 May 2021 14:42:59 +0800</pubDate><description><![CDATA[DDevExtensions 2.87 for XE10.4 这个新版本没有找到哪项是设置delphi控件面板回到传统经典面板的参数设置模块。在2.84版本中有一项是 OldPalette可将面板改为传统的面板，新版本找不到这项设置了。






















...]]></description><category></category></item><item><title><![CDATA[TChart 用法说明]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/114998024</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/114998024</guid><author>songjunyi0113</author><pubDate>Fri, 19 Mar 2021 09:40:10 +0800</pubDate><description><![CDATA[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...]]></description><category></category></item><item><title><![CDATA[MSSQL 数据库无法打开恢复操作将数据库标记为SUSPECT的解决(无法分离无法删除)]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/111172677</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/111172677</guid><author>songjunyi0113</author><pubDate>Mon, 14 Dec 2020 15:36:59 +0800</pubDate><description><![CDATA[数据库无法打开恢复操作将数据库标记为SUSPECT的解决(无法分离无法删除)

A 先停止数据库服务或者脱机数据库，备份下mdf与ldf文件，然后直接删除ldf文件；

B 将脱机的数据重新联机，然后执行下面命令。

use master

go

alterdatabasedb_namesetemergency
go
--置数据库为单用户模式
alter database db_name set single_user with rollback immediate
go
--重建数据库日志文件
...]]></description><category></category></item><item><title><![CDATA[Win7多用户下开机只显示一个用户]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/87854293</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/87854293</guid><author>songjunyi0113</author><pubDate>Thu, 21 Feb 2019 08:30:06 +0800</pubDate><description><![CDATA[1、使用快捷键 Win + R 打开运行对话框

2、在运行对话框中输入 Regedit 点击确认按钮

3、依次展开注册表路径 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList] (注：若在 Winlogon 下无节点，自行创建节点)

4、在Use...]]></description><category></category></item><item><title><![CDATA[Delphi 基于TTS方式语音朗读]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/43734961</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/43734961</guid><author>songjunyi0113</author><pubDate>Wed, 11 Feb 2015 15:53:37 +0800</pubDate><description><![CDATA[uses Comobj; 
procedure TTS(TempStr: String);
var
  voice: OLEVariant;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak(TempStr, 0);
end;]]></description><category></category></item><item><title><![CDATA[SQL 字符串中去除出现汉字之后的字符]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/30223791</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/30223791</guid><author>songjunyi0113</author><pubDate>Thu, 12 Jun 2014 10:37:31 +0800</pubDate><description><![CDATA[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)]]></description><category></category></item><item><title><![CDATA[SQL DateTime 相关函数]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/23177569</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/23177569</guid><author>songjunyi0113</author><pubDate>Tue, 08 Apr 2014 13:09:17 +0800</pubDate><description><![CDATA[SQL  DAY() – MONTH( ) – YEAR()
DAY('2008-09-30') = 30
MONTH('2008-09-30') = 9
YEAR('2008-09-30') = 2008

SQL DATEPART()
DATEPART(day, '2008-09-30 11:35:00.1234567') = 30
DATEPART(month, '2008-0]]></description><category></category></item><item><title><![CDATA[Delphi DBGrid 导出csv]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/8308124</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/8308124</guid><author>songjunyi0113</author><pubDate>Mon, 17 Dec 2012 16:46:53 +0800</pubDate><description><![CDATA[procedure OutPutDBGridToCSV(AGrd:TDBGrid; AQuery: TQuery);
var
  i,ColNum: Integer;
  Title,Data,SaveName: String;
  ALst: TStringList;
begin
  try
    ALst:=TStringList.Create;
    ALst.Clear]]></description><category></category></item><item><title><![CDATA[Delphi TListBox选中项操作]]></title><link>https://blog.youkuaiyun.com/songjunyi0113/article/details/8305936</link><guid>https://blog.youkuaiyun.com/songjunyi0113/article/details/8305936</guid><author>songjunyi0113</author><pubDate>Mon, 17 Dec 2012 09:16:01 +0800</pubDate><description><![CDATA[--返回选中项值
function GetLstBoxValue(LstBox: TListBox): String;
begin
  Result:='';
  Result:=LstBox.Items[LstBox.ItemIndex];
end;
--返回选中项节点
function GetLstBoxIndex(LstBox: TListBox): Integer;
beg]]></description><category></category></item></channel></rss>