delphi 加字符串相加
procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
query1.Open ;
end;
select * from gjh_t where name like '+name+'
应该改为
select * from gjh_t where name like '''+name+''')
相关文档：
很早做过的一个delphi项目，把里面用到的技术总结一下，主要是针对象我这样的delphi新手，技术上做个积累吧！
假设我们的数据库配置文件ServerInfo.ini内容如下：
[ServerInfo]
ServerIP=192.168.1.5
SQLDBName=Data
SQLUserID=sa
SQLPwd=
我们定义一个连接数据库的过 ......
procedure TfrmMain.FormCreate(Sender: TObject); //主窗体FormCreate事件
var FWidth:integer;
begin
if (screen.Width <> 1024) then //假设你设计程序时的分辨率为1024
begin
FWidth:=width;
scaled:=true;
& ......
今天用delphi 2010，做一个简单的内存映射的程序，在delphi以前版本上跑的好好的程序，在2010上，居然出现了不同的效果，发送端发送的字符串，接收端只收到一半，大概程序如下：
发送端：
var
str : String;
begin
CopyMemory(@(PShare^.Data),str,Length(str)); //把数据拷贝到 ......
Delphi中 Round函数有个Bug
一旦参数是形如 XXX.5这样的数时
如果 XXX 是奇数 那么就会 Round up
如果 XXX 是偶数 那么就会 Round down
例如 Round(17.5)=18
但是 Round(12.5)=12
下面的函数即可纠正这个 Bug 但是是临时性的
执行 DoRound(12.5) 结果为 13 正确
function DoRound(Value: Extended): Int64;
......
