delphi 6函数

来源：互联网发布：两个移动硬盘对拷数据编辑：程序博客网时间：2024/06/06 01:46

1.ExtractFilePath(Application.ExeName) 返回当前可执行程序.exe文件的绝对路径

showmessage(ExtractFilePath(Application.ExeName));

ExtractFileName() 从文件名中抽取不含路径的文件名

ExtractFileExt() 返回完整文件名中的文件扩展名（带.），如".doc"

2.Tinifile.Create() 读写配置文件的实例，需要用一个变量接收

3.myinifile.Readstring()读写配置文件中String类型的变量

myinifile.Readinteger()读写配置文件中Integer类型的变量

myinifile.Readbool()读写配置文件中Boolean类型的变量

4.IntToStr() 数据类型转换，将int类型转换为String类型

5.Timer1.Interval := 10000;
Timer1.Enabled := True; 表示时间控件开始工作，并10秒工作一次，

Timer1.Interval := 0;
Timer1.Enabled := False; 停止工作

6.RegisterHotKey() 注册首选热键

7. 【*.Free】释放内存控件

8. for i:=0 to 100 do 循环

begin

i:=i+1;

end

9.ADOQuery1 := TADOQuery.Create(nil)

ADOQuery1.Connection := ADOConnection1;

ADOQuery1.SQL.Text:='select * from biaoshi where biaoming =:biaom';
ADOQuery1.Parameters.ParamByName('biaom').Value := tablename;

ADOQuery1.Open;
ADOQuery1.First;

ADOQuery1.Close;

ADOQuery1.Free;

---------------------------------等同于下面的写法----------------------

ADOQuery1 := TADOQuery.Create(nil)

ADOQuery1.Connection := ADOConnection1;

with ADOQuery1 do

begin

close;
sql.clear;

sql.Text:='select * from biaoshi where biaoming =:biaom';

Parameters.ParamByName('biaom').Value := tablename;

end;

delphi与数据库交互，

10. ADOQuery1.RecordCount delphi与数据交互后，返回的受影响的行数

11.QuotedStr() 给字符串两边加单引号并返回字符串

12.DirectoryExists() 检查指定的目录是否存在。

13.FindFirst()

FindNext()

14. adoquery.Locate('id',37,[]) 在数据库中查找id字段中，与37中内容相同的记录，找到后并定位到这条记录。

[]表示大小写不敏感(不区分大小写)。

15.pos(,) 取出子串在父串中第一次出现的位置 pos('砂',adoq.FieldByName(wlmc[i]).AsString)>0

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

16.val(S; var V; var Code; Integer)第一个参数是要转换的字符串，第二个参数存放转换后的数字，可以是整数或浮点数，第三个参数存放出错的字符索引值 <-->和strtoFloat()将String类型转换为数值类型类同

17. str()

Str是将实数或整数类型的值转换为相应的字符串,  (先将第一个参数转换为实数或者整数，并按照其要求进行四舍五入，多余的部分填补为空格，返回一个字符串,如：Str(165.345:5:2,S)  结果为:' 165.35'