http://www.alonely.com.cn/Delphi/20160814/8912.html 实例说明本例是个光标应用的简单技巧,希望通过这个例子的学习后能举一反三.Delphi中像这样简单而又实用的例子还有很多,只要平时多注意积累就能写出简洁.执行效率高的代码.编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值,即可获知此组件中光标所在的行号,向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号 实例说明 本例是个光标应用

Delphi Memo的记事本功能           下载地址 : http://download.csdn.net/detail/teststudio/6412883 这个代码实现了Windows记事本的主要功能. 新建,打开,保存,另存,退出. 文件拖拽打开文件 这主要是判断Memo内容是否修改过     unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

把Excel 列号数字变成字母 private static string ToName(int index) { if (index < 0) { throw new Exception("invalid parameter"); } List<string> chars = new List<string>(); do { if (chars.Count > 0) index--; chars.Insert(0, ((char)(index %

).Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).Row)'查找最大行号 ).Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).column)'查找最大列号存在数据的最大行列号:Sub 查找数据单元格的最大行列号()MsgBox "数据单元格的最大行号: " & Cel

Excel xls列号数字转字母 https://blog.csdn.net/lf124/article/details/53432817?utm_source=itdadao&utm_medium=referral 最近遇到导出的xls中 列是动态生成的,且单元格中需要用到公式,而xls公式不是用数字列号而是用列字母来表示的,这时需要把数字的列号转成该列对应的字母.因为是按月导出 一个月最多31天,所以刚开始采用的办法是定义一个包含1到31列字母的数组.后来想想这样总不是个办法 万一列数更多

转换Excel数字列号为字母列号 例如: 0 -> A 26 -> AA private static string GetColumnChar(int col) { ; ; ) ) + (); )).ToString(); }

1. '列号转字母(列名) Function Num2Name(ByVal ColumnNum As Long) As String On Error Resume Next Num2Name = "" '超出范围返回空,如调用Num2Name(100000) Num2Name = Replace(Cells(1, ColumnNum).Address(0, 0), "1", "") 'Cell.Address用来返回单元格的地址,参数(0,0)

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '可以直接sub(),不然选择就会触发vba    Dim rows_count As Integer    Dim rows_id As Integer    Dim column_count As Integer    Dim column_id As Integer    column_count = Selection.Columns.Count '返回选择区域列数 

以前控制Memo滚动到底部的操作: SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0); 或者 Memo1.SelLength:=Length(Memo1.Text);   //移动光标 现在不需要这样,delphi xe 10 以上版本已经非常好用了: Memo1.GoToLineEnd; //滚动当前行到光标结尾 Memo1.GoToLineBegin; //滚动到当前行光标开始 Memo1.GoToTextEnd;      //滚动到文本结尾

从网上找的取cpu号 在d7中测试通过了 push,move,pop ...有点难 现在的水平我也就只能拿来主义了 /// <summary>/// 取cpu号/// </summary>/// <returns></returns>function TForm1.GetCPUID: string;var _eax, _ebx, _ecx, _edx: Longword; s, s1, s2: string;begin asm push eax push e

procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ACanvas: TcxCanvas; var ADone: boolean); uses cxLookAndFeelPainters; procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGr

命名空间:System.Diagnostics 得到相关信息: StackTrace st = new StackTrace(new StackFrame(true));StackFrame sf = st.GetFrame(0);Console.WriteLine(" File: {0}", sf.GetFileName());                                                //文件名Console.WriteLine(" M

title author date CreateTime categories C# 获取 PC 序列号 lindexi 2019-08-31 16:55:58 +0800 2018-7-30 10:31:9 +0800 dotnet C# WMI 在 C++ 需要使用 GetSystemFirmwareTable 的方法来获得 PC 的序列号,需要写的代码很多,但是在 C# 可以使用 WMI 来拿到序列号 首先是安装 System.Management ,安装了这个库,在 dotnet fra

function GetVolumeID: string; var vVolumeNameBuffer: ..] of Char; vVolumeSerialNumber: DWORD; vMaximumComponentLength: DWORD; vFileSystemFlags: DWORD; vFileSystemNameBuffer: ..] of Char; begin if GetVolumeInformation('C:\', vVolumeNameBuffer, SizeOf(

str GetExcelColName( int i_col) { int j; str ret; int v_div,v_mod; str tmp1,tmp2; int i_col_ascii; ; i_col_ascii = i_col + ; ) return ret; else { ) { v_div = i_col div ; v_mod = i_col mod ; ) { tmp1 = num2char( v_div + -); tmp2 = "Z"; } else { t

# 序列化模块 # 数据类型转化成字符串的过程就是序列化 # 为了方便存储和网络传输 # json # dumps # loads # dump 和文件有关 # load load不能load多次 import json data = {'username':['李华','二愣子'],'sex':'male','age':16} json_dic2 = json.dumps(data) print(json_dic2) '''{"username": ["\u674e\u53

package test; /** * Deal with Excel column indexToStr and strToIndex * @author * @version 2015-7-8 * @see */ public class ExcelColumn { public static void main(String[] args) { String colstr = "AA"; int colIndex = excelColStrToNum(colstr, colstr

https://www.cnblogs.com/apple2016/p/9686433.html

一直想做一个序列号的生成器,今天终于有了开始了,目前只有读取硬件生成,还没有做生成序列号的规则. 目前实现的功能就是读取系统磁盘卷加上CPU ID 和自己的加密字符串,在利用MD5加密,转换成标准32位序列号.称为一个伪装好的加密序列.防止别人看我怎么生成,哈哈,不知道管用不. 上最丑的界面 核心代码 /* * 生成序列号 */ const QString Poewr_Key::get_SerialNumber() { QString cpu_id = ""; QProcess p(0

zexcel_cell_column 类型是INT4 FUNCTION ZGET_EXCEL_COL. *"---------------------------------------------------------------------- *"*"本地接口: *" IMPORTING *" REFERENCE(I_COL) TYPE I *" EXPORTING *" REFERENCE(E_COL) TYPE C *&quo