|
|
|
delphi问题集（二） [转]
问题1：在Delphi中如何对变量赋值？
答：在Delphi中使用的编程语言是基于Pascal的面向对象语言，但是在功能上更为强大。所用的语法与Pascal一样，对于赋值语句aa:= ″1234″;不能省掉等号前的冒号,这是Pascal赋值语句所必须的,并且语句最后的分号也必不可少,它代表一个语句的结束。另外，在使用变量前必须先对其声明（定义变量），否则无法使用。下面是一个完整的包含赋值语句的程序段：
var aa:string;
begin
aa:=DateToStr((Date＋5))；
end;
问题2：如何在Delphi中制作数据库报表?
答：在任何数据库系统中报表系统都十分重要，它是主要的输出系统，Delphi中当然也少不了报表系统。
QuickReport就是Delphi中以控件组的形式提供的报表系统，完全支持Delphi数据库，可以方便地实现数据库的报表功能。可以立即打开Delphi在控件组模板中找到QuickReport。
启动Delphi后选择File|News，这时会出现一个模板和向导组，选择Business中的QuickReport Wizard,按照向导指示进行选择就可以制作一个简单的数据库报表程序。如果需要将自己的数据库资料输出到报表，请先打开数据库项目，然后在File|News菜单中选择New中的Report选项,可以立即生成一个空的报表窗口，通过鼠标右键激活报表设定。在FoxPro的报表中表格线是通过画线条来实现，而在QuickReport中可以选择QrShape来实现，只需修改属性Shape的设定值(qrsVertLine代表垂直线，qrsHorLine代表水平线)即可,至于线条的宽度和长度可以在相应的属性中设定。
问题3：Delphi在BDE别名中不识别“网上邻居”的路径，应该怎样做？
答：利用Windiws95对等网可以简单地实现数据共享。将数据库放在其中某个共享路径下就能实现数据库资料共享，但是如何在BDE中设定？在网络中无法使用本地路径，所以可以先将共享路径映射为网络驱动器，然后就可以象本地文件一样了，另外直接输入网络路径也可以实现这种功能，例如可以输入\\Computer1\Database\, 指定共享计算机名为Computer1的Database目录。另外，还可以通过浏览方式找到“网上邻居”中指定的网络路径。
问题4：请介绍一些学习Delphi的书籍和网站。
答：现在许多书只介绍Delphi入门、有关Pascal的语法和整个运行环境的使用，但是对于更进一步的使用说明和范例就不多了。当然最终要掌握Delphi还是得学会看Delphi的帮助，它才是最权威的资料，其中有许多范例，直接复制过来作一定的修改就可以在自己的程序中使用。我推荐给读者的网站有：Delphi的制作公司Inprise的网站 http://www.inprise.com/ ，其次是中文Delphi网站http://www.vclxx.com ， Delphi用户最好能到这些网站去访问，其中有许多有趣的资源、范例程序和已经增强的控件。
问题5:问题集一中介绍的ExecuteFile()函数为什么在使用时出现错误，甚至无法使用?
答:首先,必须将声明加入程序,而且不要在form的OnCreate中调用，因为调用Form－OnCreate时数据未初始化，就会出现非法读取内存错误。
loading... |
|
|
delphi问题集（一） [转]
标题:delphi问题集（一）
1.问：Delphi中实现类似VB中的字符串操作？
答：Delphi提供了丰富的字符串操作，可以实现许多复杂的处理。
Pos在字符串中查找指定字符串的位置，用于文字的查找
Delete删除字符串中从指定位置开始指定数量的字符
Insert在字符串指定文字开始插入字符串
Copy返回字符串中指定位置的一定长度的字符串
Length返回指定字符串的长度
2.问：如何进行字符串与其他类型数据转换？
答：可以用inttostr()函数，这是一个十分常用的函数，如果你希望将整数转化为字符串的形式，就必须使用这个函数。使用的方法十分简单，inttostr(整数)返回一个代表这个整数的字符串。对应函数strtoint(字符串)返回整数。特别注释：如果你不想因为输入了不是数字的字符串而引起异常报警（这是很常见的），你可以使用一个替代的函数，自己进行输入校验，这个函数就是StrToIntDef。使用的方法是：StrToIntDef（字符串，默认数字），返回的是数字，如果输入的字符串不是合法的数字，返回的将是默认的数字，如果对其进行检测，就可以发现问题。If (Inputbox(′输入数字′),－1)=－1 then showmessage(′你输入的不是数字或者输入了－1′);对应的函数还有许多，下面仅列出其函数名，具体的使用方法类似，如果需要进一步了解此类函数，请参阅delphi的联机帮助。
FloatTostr浮点数转化成字符串
FloatToStrF带格式的浮点数转化成字符串
IntToHex整数到十六进制字符串
TimeToStr时间转化成字符串
DateToStr日期转化成字符串
DateTimeToStr日期时间转化成字符串
FmtStr按指定格式输出字符串，
3.delphi编程中调用其他执行程序？
答：Function ExecuteFile(const FileName, Params, DefaultDir: string;ShowCmd: Integer): THandle; 是最简单的执行文件调用方法。
演示的程序如下：
executefile(′c:\winamp\winamp.exe′,
'winamp.m3u′,'d:\mp3\′,0);
这段程序就是我编写的定时启动播放音乐程序的一部分，仅供大家参考。
提示：最为有趣的是如果在输入的参数中填入的不是可执行文件名，而是某个数据文件如DOC文件，它会自动调用相应的程序打开（如Word）。通过这一功能还可以实现，自动发送E－mail，自动访问指定网站的功能。
executefile(′mailto:delphi32@infoworld.sh.cn′,″,″,0);
简单的语句实现了调用默认电子邮件程序向我发信的功能。
executefile(′http://delphi.sq.sh.cn′,″,″,0);
立即可以拨号上网看到我的主页
executefile(′d:\mp3\cd01\001.mp3′,″,″,0);
立即调用默认的MP3播放程序播放这首歌曲。
--------------------------------------------------------------------------------
loading... |
|
delphi中的几个技巧
1、判断一个字符串是否包含于另外一个字符串的方法
例如：if pos('ab','abcd')<>0 then
messagedlg('ab是包含于abcd',mtConfirmation,[mbYes, mbNo],0);
pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.
2、如何使窗口全屏，类似游戏一样，而不是窗口的最大化!
(1) BorderStyle 为 bsNone
(2) Windowstate 为 wsMaximized
(3) 退出时可加一个按钮之类的，写上 close 即可退出。
3、数字格式化输出
format('%8.2f',[123.456])，返回字符串' 123.46'。
4、播放一个wav文件
use mmsystem;
SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC);
5、InputBox,InputQuery和ShowMessage函数的威力
uses dialogs;
var s,s1:string;
b:boolean;
begin
s:=trim(Inputbox('NewPassword','Password','masterkey'));
b:=s<>''
s1:=s;
if b then b:=InputQuery('Confirm Password','Password',s1);
if not b or (s1<>s) then ShowMessage('Password Failed');
end;
6、几个有关子目录的操作的过程
MkDir(str); ChDir(str); GetDir(DriveID,str); SetCurrentDir(str);
IOResult --上面几个过程调用成功即返回0值
7、将一个可视控件变成图形类型
例如将一个带背景的LABEL变成一个TIMAGE图片类型，可以这样做：
image1.width:=label1.width;
image1.height:=label1.height;
label1.perform(WM_PAINT,image1.Canvas.Handle,0);
8、如何得到字符的ASCII值
得到字符的ASCII值，可以用如下语句：
var: a:integer;
string1:string;
begin
string1:='ABC'
a:=byte(string[1]); {此时就得到'A'的ASCII值}
end;
9、动态更新DBGrid的颜色
例如，如果一个城市的人口大于200万，我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Table1.FieldByName('Population').AsInteger > 20000000 then
DBGrid1.Canvas.Font.Color := clBlue;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
10、获得命令行参数
1. 取得命令列参数的个数: ParamCount 函数
2. 呼叫 ParamStr(0), 传回执行档的档名(含路径)
3. 呼叫ParamStr(n), 传回第ｎ个参数的内容
例子：
procedure TForm1.FormCreate(Sender: TObject);
var
ix: integer;
begin
Memo1.Lines.Clear;
if ParamCount = 0 then
Memo1.Lines.Add('没有参数')
else
begin
Memo1.Lines.Add('档名:' + ParamStr(0));
for ix := 1 to ParamCount do
Memo1.Lines.Add(ParamStr(ix));
end;
end;
|
|
|
|