Delphi字符串、PChar与字符数组之间的转换
设有以下三个变量：
var
s:string;
p:pchar;
a:array[1..20] of char;
那么三者之间的转换如下：
1、字符串到PChar
p:=PChar(s);
2、PChar到字符串
s:=p;
3、PChar到字符数组
StrCopy(@a,p);
4、字符数组到PChar
PChar(@a);
5、字符串与字符数组之间的转换就只有通过PChar来中转了。例如下面这个例子：
procedure TForm1.btn1Click(Sender: TObject);
var
str:array[1..10] of char;
begin
StrCopy(@str,PChar(mmo1.Text));
mmo2.Text:=PChar(@str);
end; ......
delphi中application.processmessages的作用
procedure TForm1.Button2Click(Sender: TObject);
var
I, J, X, Y: Word;
begin
I := 0;
J := 0;
while I < 64000 do
begin
Randomize;
while J < 64000 do
begin
Y := Random(J);
Inc(J);
Application.ProcessMessages;
end;
X := Random(I);
Inc(I);
end;
Canvas.TextOut(10, 10, 'The Button2Click handler is finished');
end;
代码中红色的一行的作用：
如果你运行一个非常耗时的循环，那么在这个循环结束前，你的程序可能不会响应任何事件，你按按钮没有反应，程序设置无法绘制窗体，看上去就如同死了一样，
这有时不是很方便，例如于终止循环的机会都没有了。这时你就可以在循环中加上这么一句，每次程序� ......
1) Delphi向oracle中传递参数 如oracle中的参数名为erpcx
答：如果想从表里取值到oracle，则erpcx:=trim(aq1.fieldbyname('erpcx').AsString);
否则直接用控件名字
语句为
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;
procedurename:='pc_erpbominquery';
parameters.CreateParameter(erpcx,ftstring,pdinput,60,erpcx); 此句为传参数语句
否则直接用 Parameters.CreateParameter('@erpcx',ftString,pdInput,100,edit5.text);
ExecProc;
end;
2)sql取四舍五入职 round(字段名，小数点后位数如取整数为0)
3)sql连接同一服务器的不同表的数据
答：select * from 数据库名.dbo.表名
4）要想从多个表里查数据，a里有5个 b里有3个 c里有2个显示时该如何去掉重复的部分呢
如 表a &n ......
1) Delphi向oracle中传递参数 如oracle中的参数名为erpcx
答：如果想从表里取值到oracle，则erpcx:=trim(aq1.fieldbyname('erpcx').AsString);
否则直接用控件名字
语句为
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;
procedurename:='pc_erpbominquery';
parameters.CreateParameter(erpcx,ftstring,pdinput,60,erpcx); 此句为传参数语句
否则直接用 Parameters.CreateParameter('@erpcx',ftString,pdInput,100,edit5.text);
ExecProc;
end;
2)sql取四舍五入职 round(字段名，小数点后位数如取整数为0)
3)sql连接同一服务器的不同表的数据
答：select * from 数据库名.dbo.表名
4）要想从多个表里查数据，a里有5个 b里有3个 c里有2个显示时该如何去掉重复的部分呢
如 表a &n ......
1) Delphi向oracle中传递参数 如oracle中的参数名为erpcx
答：如果想从表里取值到oracle，则erpcx:=trim(aq1.fieldbyname('erpcx').AsString);
否则直接用控件名字
语句为
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;
procedurename:='pc_erpbominquery';
parameters.CreateParameter(erpcx,ftstring,pdinput,60,erpcx); 此句为传参数语句
否则直接用 Parameters.CreateParameter('@erpcx',ftString,pdInput,100,edit5.text);
ExecProc;
end;
2)sql取四舍五入职 round(字段名，小数点后位数如取整数为0)
3)sql连接同一服务器的不同表的数据
答：select * from 数据库名.dbo.表名
4）要想从多个表里查数据，a里有5个 b里有3个 c里有2个显示时该如何去掉重复的部分呢
如 表a &n ......
北京腾度网络科技有限公司
地址:北京海淀区学清路
电话:82755789
因工作需要,现面向北京招聘以下职位.
Delphi软件工程师
1、精通Delphi开发，熟悉VCL架构，代码风格良好。
2、有良好的团队合作精神，富有创新精神;
3、熟悉网络编程，对Indy组件，Socket开发有一定的了解;
4、熟悉面向对象编程思想,有组件或控件编程经验;
5、能熟悉使用多线程技术提高程序运行效率;
6、使用Delphi开发2年以上，有过实际项目开发经验;
7、年龄：20-28岁
软件界面设计
主要负责公司软件界面、软件图标、Logo及网站效果页面的设计。
1、 大专以上学历，美术、平面设计或相关专业，一年以上工作经验；
2、 熟练使用常用设计软件/工具，如；photoshop，Fireworks等设计制作软件;
3、 有良好的视觉设计感觉、丰富的创意头脑、界面框架设计灵感；
4、 对色彩基础知识、平面构成、色彩搭配、版面设计等美术基础知识熟练掌握;
5、 能够独立完成软件图标、软件界面、Logo及网站效果图的设计.
6、 有过独立软件界面设计者优先考虑.
备注：请将作品截图或网站访问地址随简历一同提供。
公司环境好� ......
//**************需要强调的两个快捷键**********************
51.CTRL+SHIFT+U 代码整块左移2个空格位置
52.CTRL+SHIFT+I 代码整块右移2个空格位置
60.Ctrl+Alt+c 注释块
61.Ctrl+Alt+u 取消注释块
48.CTRL+SHIFT+C 编写申明或者补上函数，绝好!!!
53.CTRL+SHIFT+↑ 在过程、函数、事件内部, 可跳跃到相应的过程、函数、事件的定义（在interface和implementation之间来回切换）
54.CTRL+SHIFT+↓ 在过程、函数、事件的定义处， 可跳跃到具体过程、函数、事件内部(同上)
//********************************************************
1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样)
2.Shift+F8 调试时弹出CPU窗口。
3.Shift+F10 等于鼠标右键（Windows快捷键）。
4.Shi ......
Delphi中的线程类
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是
对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并
不是多线程编程的全部，此文的目的在于对此作一个补充。
线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程，即所谓的主线程。同时还可以有多个子线程。
当一个进程中用到超过一个线程时，就是所谓的“多线程”。
那么这个所谓的“一段代码”是如何定义的呢？其实就是一个函数或过程（对Delphi而言）。
如果用Windows API来创建线程的话，是通过一个叫做CreateThread的API函数来实现的，它的定义为：
HANDLE CreateThread(
& ......
最新文章 : delphi