<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[欧少的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/tesily</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; tesily]]></copyright><item><title><![CDATA[Delphi xe7 MD5算法]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/139952184</link><guid>https://blog.youkuaiyun.com/tesily/article/details/139952184</guid><author>tesily</author><pubDate>Tue, 25 Jun 2024 10:33:16 +0800</pubDate><description><![CDATA[Delphi xe7 MD5算法]]></description><category></category></item><item><title><![CDATA[SQL 实现34进制]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/79654146</link><guid>https://blog.youkuaiyun.com/tesily/article/details/79654146</guid><author>tesily</author><pubDate>Thu, 22 Mar 2018 14:53:34 +0800</pubDate><description><![CDATA[CREATE FUNCTION [dbo].[int2Char](@id bigint)  RETURNS char(4)  AS  BEGIN;      DECLARE @char_return varchar(10) = '', @v_count int;      WHILE @id &amp;gt; 0           SELECT              @v_count = @id %...]]></description><category></category></item><item><title><![CDATA[delphi MD5加密]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/79271649</link><guid>https://blog.youkuaiyun.com/tesily/article/details/79271649</guid><author>tesily</author><pubDate>Tue, 06 Feb 2018 16:09:12 +0800</pubDate><description><![CDATA[uses  IdHashMessageDigest,IdGlobal, IdHash;
 
function StrToMD5(S: String): String;
var
  Md5Encode: TIdHashMessageDigest5;
begin
  Md5Encode:= TIdHashMessageDigest5.Create;
  try
    result:=]]></description><category></category></item><item><title><![CDATA[delphi 下拉框控件中插入表数据]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/78192708</link><guid>https://blog.youkuaiyun.com/tesily/article/details/78192708</guid><author>tesily</author><pubDate>Tue, 10 Oct 2017 14:57:23 +0800</pubDate><description><![CDATA[procedure TForm1.FormCreate(Sender: TObject);
var
   i:integer;
begin   adoquery1.Close;
   //表查询代码略
   adoquery1.Open;   adoquery1.First;
   for i:=1 to adoquery1.RecordCount do     begin
        comb]]></description><category></category></item><item><title><![CDATA[sql 周转换为日期自定义函数]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/78052300</link><guid>https://blog.youkuaiyun.com/tesily/article/details/78052300</guid><author>tesily</author><pubDate>Thu, 21 Sep 2017 15:13:33 +0800</pubDate><description><![CDATA[SQL中，将周期转换为日期，取当周第一天的日期，格式：dbo.get_WeekToDate(Week,WeekFormat)

CREATE Function [dbo].[get_WeekToDate](@week varchar(4),@wkformat varchar(4))  
   Returns  date
AS  
BEGIN  
  declare @year varchar(]]></description><category></category></item><item><title><![CDATA[SQL分组自增，再按组分列显示]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/77478011</link><guid>https://blog.youkuaiyun.com/tesily/article/details/77478011</guid><author>tesily</author><pubDate>Tue, 22 Aug 2017 11:29:24 +0800</pubDate><description><![CDATA[语法：ROW_NUMBER() 
OVER(PARTITION BY COLUMN 
ORDER BY COLUMN)



select  row_number() over(partition by pdctno order by pdctno) as id2 ,* 
into #temp20 
from engmail 
--where pdctno='02047829ga]]></description><category></category></item><item><title><![CDATA[delphi 遍历EXCEL文档 ，查找指定区域的位置，并显示其值]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/54313004</link><guid>https://blog.youkuaiyun.com/tesily/article/details/54313004</guid><author>tesily</author><pubDate>Tue, 10 Jan 2017 13:32:10 +0800</pubDate><description><![CDATA[遍历EXCEL文档 ，查找指定区域的位置，并显示其值procedure TForm1.Button2Click(Sender: TObject);
var
   i:integer;
begin
     EApp := CreateOleObject( 'Excel.Application' );
     EApp.Workbooks.Open('d:\book4.xls');     for]]></description><category></category></item><item><title><![CDATA[delphi 操作excel 复选框]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/54095444</link><guid>https://blog.youkuaiyun.com/tesily/article/details/54095444</guid><author>tesily</author><pubDate>Thu, 05 Jan 2017 17:19:00 +0800</pubDate><description><![CDATA[delphi 操作excel 复选框         EApp.ActiveSheet.CheckBoxes(3).Value:=1;
         EApp.ActiveSheet.CheckBoxes(1).Value:=1;]]></description><category></category></item><item><title><![CDATA[delphi  往 excel 指定单元格中插入图片]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/54095409</link><guid>https://blog.youkuaiyun.com/tesily/article/details/54095409</guid><author>tesily</author><pubDate>Thu, 05 Jan 2017 17:17:22 +0800</pubDate><description><![CDATA[delphi  操作excel 插入图片        EApp.ActiveSheet.Range['imagepath'].select;  //--选定插入图片的单元格
        EApp.ActiveSheet.Pictures.Insert('d:\test.jpg').Select;]]></description><category></category></item><item><title><![CDATA[delphi控制excel ,在指定单元格后插入行]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/54017426</link><guid>https://blog.youkuaiyun.com/tesily/article/details/54017426</guid><author>tesily</author><pubDate>Wed, 04 Jan 2017 11:37:43 +0800</pubDate><description><![CDATA[delphi控制excel ,查找指定单元格“test1”，在指定单元格后插入行unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj,excel2000, StdCtrls;type
  TForm1 = class]]></description><category></category></item><item><title><![CDATA[用Delphi将数据导入到Excel并控制Excel(转载)]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53895336</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53895336</guid><author>tesily</author><pubDate>Tue, 27 Dec 2016 14:36:13 +0800</pubDate><description><![CDATA[一、调用Excel的方法：一般情况下有两种方法调用Excel： 
1、  直接使用Delphi自带的组件：在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 
2、动态创建Excel文件：首先创建 Excel 对象，使用ComObj,Excel2000: 
var ExcelApp: Variant; 
ExcelApp := Crea]]></description><category></category></item><item><title><![CDATA[delphi AdvStringGrid 检索数据的行数]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53895106</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53895106</guid><author>tesily</author><pubDate>Tue, 27 Dec 2016 14:13:28 +0800</pubDate><description><![CDATA[for i:=0 to 20 do                                            
        begin
           if advstringgrid1.Cells[0,i] = '' then
             begin
             j:=i-1;
             break;
             en]]></description><category></category></item><item><title><![CDATA[delphi 用别名的方式访问excel写入数据，实现非标格式报表输出]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53842513</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53842513</guid><author>tesily</author><pubDate>Fri, 23 Dec 2016 18:14:05 +0800</pubDate><description><![CDATA[delphi  访问 excel 单元格 ，可实现非标准格式报表输出]]></description><category></category></item><item><title><![CDATA[用 AdvStringGrid addbutton 中添加图片（BMP/JPG)]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53809180</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53809180</guid><author>tesily</author><pubDate>Thu, 22 Dec 2016 09:18:22 +0800</pubDate><description><![CDATA[在AdvStringGrid 中插入 JPG、BMP格式图片
procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow,
  ACol: Integer);]]></description><category></category></item><item><title><![CDATA[在AdvStringGrid单元格中添加按钮及按钮事件]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53808622</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53808622</guid><author>tesily</author><pubDate>Thu, 22 Dec 2016 08:33:14 +0800</pubDate><description><![CDATA[在AdvStringGrid单元格中添加按钮 AdvStringGrid8.AddButton(0,1,75,25,'导入图片', haCenter, vaCenter);给按钮添加事件：单击按钮在单元格中插入图片（实际上单击单元格中任意位置都可以）procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow,
  ACol: Inte]]></description><category></category></item><item><title><![CDATA[AdvStringGrid单元格获得焦点]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53785879</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53785879</guid><author>tesily</author><pubDate>Wed, 21 Dec 2016 15:41:53 +0800</pubDate><description><![CDATA[advstringgrid
单元格
焦点]]></description><category></category></item><item><title><![CDATA[Delphi基本图像处理方法汇总]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53783454</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53783454</guid><author>tesily</author><pubDate>Wed, 21 Dec 2016 13:39:40 +0800</pubDate><description><![CDATA[本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下：



?




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38]]></description><category></category></item><item><title><![CDATA[AdvStringGrid 单元格动态添加图片]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53781661</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53781661</guid><author>tesily</author><pubDate>Wed, 21 Dec 2016 10:51:39 +0800</pubDate><description><![CDATA[procedure TForm1.Button1Click(Sender: TObject);
var
    Bmp: TBitmap;
begin
     opendialog1.Execute;


 Bmp := TBitmap.Create;
 Bmp.LoadFromFile(opendialog1.Filename);
 advstringgrid5.AddBit]]></description><category></category></item><item><title><![CDATA[OpenDialog/SaveDialog 中 Filter用法]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53779925</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53779925</guid><author>tesily</author><pubDate>Wed, 21 Dec 2016 08:40:45 +0800</pubDate><description><![CDATA[Filter 属性 赋值为一字符串用于过滤文件类型;


字符串说明如下：
‘|’分割的两个，一个是注释，一个是真的Filter，显示出来的是那个注释。如果要一次显示多中类型的文件，用分号分开。
如：
Open1.Filter="图片文件(*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp";
则过滤的文件类型为 “|”号 右边的 *.jpg;*.gif;*.b]]></description><category></category></item><item><title><![CDATA[AdvStringGrid 中加载图片]]></title><link>https://blog.youkuaiyun.com/tesily/article/details/53765026</link><guid>https://blog.youkuaiyun.com/tesily/article/details/53765026</guid><author>tesily</author><pubDate>Tue, 20 Dec 2016 16:42:35 +0800</pubDate><description><![CDATA[AdvStringGrid 中加载图片]]></description><category></category></item></channel></rss>