delphi常用

来源：互联网发布：php上传图片到本地编辑：程序博客网时间：2024/06/04 23:27

Delphi

1、声明变量时要使用var关键字

Var

S1,s2:string;

Begin

S1:=’hello’;

S2:=’word’;

S1:=s1+s2;

End;

2、改变文本标签内容

Begin

Label1.Caption:=’hello world’;

End;

3、关闭窗口

Begin

Close;

End;

4、改变单行编辑框背景色

Begin

Edit1.Color:=clRed;

End;

5、函数

Function <函数名> (<形式参数表>);<类型>;

Begin

<语句>;

............

<语句>;

End;

实例-->

Function Total(x,y:real):real;

Begin

Total:=x*y;//返回值由函数名返回

Result:=x+y;//返回值由Result传回

End;

实例调用方法--->

Function totals(x,y:integer):integer;

begin

result:=x+y;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z:integer;

begin

x:=2;

y:=3;

z:=totals(x,y); //调用函数

Edit1.Text:='0.0.0.0';

end;

6、类型互转

Int-->str: Inttostr();

Str-->int: strtoint();

var
      num:Double;
   begin
     num:= 4.9;
    //num:= Int(num); int 是直接取小数的整数部分
   // num:= Round(num); round 是把小数四舍五入
// num:= Trunc(num);   返回实数的整数部分
end;

8、弹框

showmessage('error');

9、if else 使用：

文本框的值是chen就关闭窗口，否则文本框显示no

begin

co:=Edit1.Text;

if co='chen' then

else

Edit1.Text:='no';

end;

10、DBGridEh设置两行标题：

先设置UseMultiTitle为true ，

         再设置每列的标题:
                  Columns[0].Title.Caption:= '编号 '
                  Columns[1].Title.Caption:= '应扣款|水电 '
                  Columns[2].Title.Caption:= '应扣款|其它

11、自动分页工具：

控件名字：TDbGridGx

12、两个'TDBGridEh表格嵌套：

外层表格打开属性RowDerailPanel，Active选为true，表格会出现面板，再往面板拖一个表格即可。

13、在TDBGridEh表格中填数据：

拖两个控件到窗体上：ClientDataSet DataSource，然后DataSource的DataSet属性绑定ClientDataSet ，

然后TDBGridEh表格中DataSource属性绑定DataSource，最后一步填写数据，

ClientDataSet1.FieldDefs.Add('表格字段名',ftString,20);
ClientDataSet1.CreateDataSet;

ClientDataSet2.AppendRecord(['要填写的数据']);

14、TMemo加载文件内容：

mmo1.Lines.LoadFromFile('d:\a.txt');

15、打开超链接

首先在Uses 里加入 Shellapi，

然后在用到的超链接的地方，加上 Shellexecute(handle,nil,pchar('http:xiwu.500yun.com'),nil,nil,sw_shownormal);

16、一个窗体打开另一个窗体

在主窗体的 implementation 下，uses 要打开的窗体文件名（注：是 *.pas 的名字），然后在要打开的地方写上：

要打开的窗体名：= T要打开的窗体名.Create(nil);

要打开的窗体名.show();

17、dll的静态使用（使用）

第一步，

在工具的file-->new-->other 下，选中DLL，会自动生成一个文件，在begin end之前定义两个函数，如下：

uses
SysUtils,
Classes;

{$R *.res}
function Max(x,y:string):string;
var
    z:string;
begin
     z:= x + y + '我是最美丽的';
     Max:= z;
end;
function Min(x,y:string):string;
var
z:string;
begin
z:= x + y + '我是最丑的';
Min:= z;
end;

exports
Max,Min;

begin
end.

然后保存名为one，编译后，文件夹会多出一个one.dll文件。

第二步，为one.dll文件新建一个*.pas的单元源文件，点击file-->new -->form application,

然后在

type

的之前声明要调用的函数，如：

function Max (X, Y: string): string;
function Min (X, Y: string): string;

type

，最后在implementation下面写上如下：

function Max;
external 'one.dll';
function Min;
external 'one.dll';

保存名为testOneDLL。

第三步，调用，

在要调用函数的窗体里的implementation里应该这样写，

implementation
uses
testOneDLL;

然后在用到函数的地方，就testOneDLL.函数名（）；

完成。

0 0