最近遇到了很多问题,现在做一下总结. 字符串处理: 字符串相加 var S1, S2: String; begin S1 := Concat('A', 'B'); // 连接两个字符串,S1变量等于AB. S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符,S2变量等于Borland Delphi 7.0. end; 去掉最后一个字符: var s : string; begin s := '; caption := copy(s, , L

delphi 中Adoquery ,在打开时能否让记录指针不移动?由于数据集Adoquery 时,它的针指称动会废时,能否在打开完成之前不让记录指针不移动.打开完毕之后再回复移动? 这样用:self.ADOQuery1.DisableControls;.........self.ADOQuery1.EnableControls; procedure refreshDataSet(daSet: TadoQuery); var tempBookmark: TBookmark; begin IF Da

什么是转发记录指针? 转发记录指针是堆表中特有的数据存储机制. 当你修改了某个数据页中的一行时,如果该行所在的数据页已经无法存放其修改后的行, SQL Server会把这行数据移动到一个新的数据页上面去,并在原来的位置留下一个”记录转发指针”,指向到数据行新的位置. 图一 滥用记录转发指针的后果 转发记录指针是个非常麻烦的东西,对数据读取的性能百害无一利, 试想在一个满是转发指针记录的表中查找数据时,你需要根据这些转发指针记录在不同的数据页上跳来跳去,对性能的影响可想而知. 甚至连SQL Ser

查询出来数据,在数据集编辑状态下,如何判断一条记录被修改了,哪些字段被修改了. 可用adoquery的Delta屬性...eg: ClientDataSet1.Delta... PS:POST前是準確的... ADOQuery1.Fields[0].NewValue  ADOQuery1.Fields[0].OldValue  ADOQuery1.Fields[0].CurValue 这三个值,你自己看看就知道了 wxieyang,有没有更好的办法.kye_jufei,delta属性adoque

1 前言 由于项目需要,当某个表如果有记录,就不执行加入语句,否则加入新纪录(测试数据).思路是:判断表的记录是否为空,然后再决定是否插入 2 代码 DROP PROCEDURE IF EXISTS insert_record; DELIMITER $$ CREATE PROCEDURE insert_record() BEGIN DECLARE num INT; select count(*) into num from `bill`; if num = 0 then INSERT INTO

http://www.cnblogs.com/smallmuda/archive/2009/07/24/1529845.html delphi 如何判断应用程序未响应    今天在MSN的核心讨论组上看到两篇文章.讨论的乃是应用程序是否没有响应.原文如下:           >   How   is   it   possible   to   determine   a   process   is   "not   responding"   like   NT   Tas

如何判断一个变量是不是指针? 思路:模板函数 + 可变参数 + sizeof(函数) #include <iostream> #include <string> using namespace std; template<typename T> char IsPtr(T* p) { return 'c'; } int IsPtr(...) { return ; } #define ISPTR(p) (sizeof(IsPtr(p)) == sizeof(char)) /

PPersion=^TPersion;  TPersion=packed record     Name:string;     Sex:string;     Clasee:string;  end; var  persion:TPersion;  PP:PPersion; begin FillChar(persion,SizeOf(TPersion),0);   persion.Name:='liujicai ';   persion.Sex:='2';   persion.Clasee:=

PPersion=^TPersion; TPersion=packed record Name:string; Sex:string; Clasee:string; end; var persion:TPersion; PP:PPersion; begin FillChar(persion,SizeOf(TPersion),); persion.Name:='liujicai '; persion.Sex:='; persion.Clasee:='; New(pp); pp^:=persion;

Delphi的table的RecNum属性,可以用来定位记录,如:self.Table1.RecNum:=23;即可以让数据库记录移动到23号记录上,但这种作用仅限于Paradox数据库,而不是dBASE数据库.如何解决这个问题,可以如下处理: unit DBTables; ... procedure TBDEDataSet.SetRecNo(Value: Integer); begin CheckBrowseMode; if (FRecNoStatus = rnParadox) and (Va

这点是与C语言不一样的地方,以前我一直都没有明白这一点,所以总是不明白:函数地址再取地址算怎么回事? ---------------------------------------------------------------------------------------------------------------- 在学习Delphi的时候,一个很好的建议是和C/C++去类比着学习,从指针,到内存管理,到数组,到面向对象……各个方面,都是有很多可以相似和或者也有不同的方,类比着学习,一

前言,在我们的业务逻辑中,很有可能会遇到这样的情况. 1.我要更新一条记录的值. 2.但是我不确定这条记录存不存在??? 3.那如果存在?我就更新,如果不存在,我就插入! 那么如果这样,一般情况下,我就要发出三条sql,第一条sql查询这条记录,然后用程序判断,如果存在,则更新,如果不存在,则插入. 但是这样,就略显麻烦了,而且要发出三条sql,那么,其实是有办法一次性解决的. 下面给出sql BEGIN #定义一个变量来保存该记录是否存在 declare num int; #这条sql,就是查

有个参数,需要判断其Value是否为指针,如果是做相应的处理. 代码示例如下,后来发现is_pointer在std空间中. #include <stdio.h> #include<iostream> #include<vector> template<typename T> struct is_pointer { static const bool value = false; }; template<typename T> struct is_

判断网络的是否连接或者连接方式,比较重要的一点就是是不是即时判断,如果你明明无连接,判断出来却说你有,连接上了,却说你还未连接,下面要介绍的两个方法中 InternetGetConnectedState就是不怎么够即时的API函数,而第二个使用的是IsNetworkAlive这个API函数,这个没有InternetGetConnectedState的那种问题,但是可能需要安装SDK,也就是.Net框架. 一.InternetGetConnectedState 在DELPHI中 引用wininet

有朋友问我,客户端使用了kbmMWClientQuery,对其进行了编辑后,对于指定的记录,如何判断是否是增加的记录,或者是被修改后的记录? 下面这个函数,返回aDataSet当前记录的修改状态: function TForm5.GetUpdateStatus(aDataSet: TkbmMWCustomClientQuery): TUpdateStatus; var i: TkbmNativeInt; pRec, pOrigRec, pOldRec: PkbmRecord; st: TUpda

unit UntOpenMenu; //download by http://wwww.NewXing.com interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus,registry; type TFrmMain = class(TForm) MainMenu1: TMainMenu; F1: TMenuItem; open: TMenuItem; Recent

http://www.cnblogs.com/azhqiang/p/4050331.html 在进行数据库操作时, 我们经常会遇到批量向数据库中写入记录的情况. 在这里我提供3种操作方式:   1.  单条语句循环插入, 这是最笨的方法: for i := 0 to 100 do   ADOCommand1.Execute('IINSERT INTO .....')   //伪码, 只是说明意思   2.  多条语句批量插入, 将多条Insert语句拼成一条语句, 一次执行: for i :=

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

Using the Android Device's Back Button To make your application handle when users press the Back button on their Android device, add an event handler to your form for OnKeyUp, and use the following code within your event handler: Delphi: if Key = vkH

CnPack  http://www.cnpack.org Alt+F11 ,添加引用,但是文件列表太多,速度慢,打开添加引用窗口后,工具栏有个hook,去掉hook就用IDE自带的速度很快! GE  http://www.gexperts.org/ ge安装完后最好把快捷键都去掉. 搜狗输入法的快捷键Ctrl+,  也去掉,因为Ctrl+, 是 {} begin end 配对跳转的功能. CnPack,调整菜单显示顺序,把历史文件调整到最顶端,第一个菜单. CnPack>Options>Wi

一直没时间,这两天折腾了一下 升级了.  其实也可能修了老bug 引入新bug. 呵呵. 看看Emb 都修了什么吧.  我干脆是重新安装的. 虽然官方也有一个单独的update.exe.  从这些bug列表里我选了一些和Firemonkey有关的. 其实这些bug是某个条件下才会触发的. 所以即使我们不升级, 也不见得会遇到. 但是如果遇到了,也是正常. 多测试才是根本. 所以没时间的话,也不用太着急. 没准下周 update2 又出来了. 上一次自己折腾了 admob 花了大概3-4天自己晚上