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
close
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.函数名();
完成。