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

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

http://www.delphitop.com/html/kongjian/2641.html选中第5行 //转到指定行并选中这行的文本 procedure SelectLine(Memo1: TMemo; ln: Integer); begin Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - , ); Memo1.SelLength := Length(Memo1.Lines[ln - ]); end; http:

选中第5行 //转到指定行并选中这行的文本 procedure SelectLine(Memo1: TMemo; ln: Integer); begin Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - , ); Memo1.SelLength := Length(Memo1.Lines[ln - ]); end; http://bbs.csdn.net/topics/110143548 //将滚动条定位到指定行 pro

Windows记事本记事本     描述:     用Delphi模仿的Windows记事本 界面和功能都和Windows的记事本一样,是用Memo实现的而不是RichEdit 可以执行以下功能 文件 打开,保存,打印, 页面设置,撤销,复制,粘贴,查找,替换,插入时间日期,转到行, 保存窗体大小 位置 和读取配置信息支持拖拽文件到记事本中...  下载地址:http://download.csdn.net/detail/teststudio/6414215 难点 对文件的新建 打开 保存 另存

C语言应用非常广泛,并在世界各地拥有大量的代码库.这些代码库与Delphi的可比性较小,因此如果我们无需转换为Delphi代码而可以直接使用这些库的部分代码就完美了.幸运的是,Delphi允许连接到C编译出来的对象文件.但这里有” unsatisfied externals”问题. C is a very widely used language, and this has made the worldwide code library for C huge. The code library

源:http://blog.csdn.net/henreash/article/details/7357618 C语言应用非常广泛,并在世界各地拥有大量的代码库.这些代码库与Delphi的可比性较小,因此如果我们无需转换为Delphi代码而可以直接使用这些库的部分代码就完美了.幸运的是,Delphi允许连接到C编译出来的对象文件.但这里有” unsatisfied externals”问题. C is a very widely used language, and this has made

DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL的Mo

在C#中的Datatable类中,可以使用DataTable类的Merge方法对两个相同结构的DataTable对象进行求并集运算,将两个DataTable对象的数据行合并到其中一个DataTable变量中,或者说往其中一个DataTable对象中写入另一个DataTable对象的所有数据行.下列例子中使用到DataTable.Clone方法,DataTable.Clone方法用于赋值DataTable的结构信息,包括所有 DataTable 架构和约束. Merge方法的签名为:void Me

在C#中的Datatable类中,Clone方法和Copy方法都可以用来复制当前的DataTable对象,但DataTable类中的Clone方法和Copy方法还是有区别的,Clone方法只复制结构信息,包括所有 DataTable 架构和约束,但Copy方法除了复制结构信息之外,还复制DataTable的表格行数据信息. DataTable.Clone 方法:克隆 DataTable 的结构,包括所有 DataTable 架构和约束. DataTable.Copy 方法:复制该 DataTab

在C#中的Datatable数据变量的操作过程中,可以通过DataTable变量的Rows属性的InsertAt方法往DataTable的指定位置行数位置插入一个新行数据,即往DataTable表格指定位置插入新数据DataRow,如果在插入新行数据的时候使用的是Rows属性的Add方法,则是插入到表格的最后一行位置. 首先给出我们Demo的Datatable变量dataDt的结构信息,该表格中含有3列,分别为Name.Id.Memo.有个业务需求需要生成一个新行数据DataRow对象,并将Da

Delphi 自带的那个 Hand 光标很难看?没关系,一行代码解决问题: Screen.Cursors[crHandPoint] := LoadCursor(0, IDC_HAND);放在主窗体 OnCreate 事件里,或放在任意一个单元 initialization 节都可以.同样的方法还可以替换掉其它感觉不爽的默认光标.

由项目需要,需要扫描1200万行的文本文件.经网友的指点与测试,发现C#与Delphi之间的差距并不大.不多说,列代码测试: 下面是Delphi的代码: //遍历文件查找回车出现的次数 function ScanEnterFile(const FileName:string):TInt64Array; var   MyFile:TMemoryStream;//文件内存   rArray:TInt64Array;       //行索引结果集   size,curIndex:int64;//文件大

Delphi TFindDialog TReplaceDialog对话框的使用 下载地址1: http://download.csdn.net/detail/teststudio/6408383   下面这段代码已经完全的解决Memo的查找对话框 和 替换对话框 功能 的所有功能   查找对话框部件 查找对话框部件为应用程序提供查找对话框,用户可使用查找对话框在文本文件中查找字符串. 可用Execult方法显示查找对话框,如图4.8.应用程序要查找的字符放到FindText属性中.Options

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

http://www.cnblogs.com/leewiki/archive/2011/12/16/2290172.html Delphi中点击DBGrid某一行获得其详细数据方法 前提是用ADOTable进行数据库的链接.(其他的链接数据库的方法没有试过) 在方法:DBGrid1DblClick中添加代码: 1 ComboBox1.Text:=DBGrid1.Columns.Grid.Fields[0].Value;2 Edit1.Text:=DBGrid1.Columns.Grid.Fiel

位于Standard选项卡上,它是对EDIT控件的扩展,可以对多行文本进行显示.输入 和编辑. Lines属性: 该属性实际上为TStrings类型的对象,用来存放Memo对象的文本 TStrings有一个缺省的属性Strings, 它的定义为: property strings[index:integer]:string; 其中,Index表示字符串的索引值,从0开始,到TStrings对象中字符串的最大行 数减1为止. TStrings的主要方法: procedure add(const s

Delphi中,可以使用数据集控件提供的 Locate 成员方法快速定位至某条记录, 然后通过清除数据集控件的选中状态,并重新赋值达到我们的目的. grDirectory.DataSource.DataSet.Locate('StepNo', StrToInt(stepList[i]), []); grDirectory.ClearSelection; grDirectory.FocusedNode.Selected := True;

ClientDataSet的数据查找.我所介绍的心得和技巧都是用ClientDataSet来做范例,也可以应用于其他的一些DataSet.废话就不多说了.我们还是先看代码,让后再总结.1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法,遍历所有数据:procedure TForm1.ScanBtnClick(Sender: TObject);varFound: Boolean;beginFound := False;ClientDataSet1.DisableControls;