这次是介绍一些范例 提供给各位大大们参考使用
希望能对大家有一些帮助^^

因为程式都很小 所以就都放在一起了
再加上小弟也很懒得一直发文 呵呵
所以就都放在一起了
请各位大大慢用!!
每个程式均有附件
---------------------------------------------第一个是跑马灯效果---------------------------------------------
附件名称 trn.zip
类似跑马灯效果 能够重复循环的那一种的 元件
由于并不困难 所以就不多加以说明
另外画面单调也就不提供图片
仅提供原始档及执行档~

以下是程式码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var v:integer;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.left := button1.left + v * 10;
if (button1.left < 0) or (button1.left > 280) then
v := v * -1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
v := 1;
end;

end.


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

---------------------------------------------函数的范例及overloading-------------------------------------------------
附件名称: func.zip
area.zip

第一个范例

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function f1(var a, b: integer): integer;
procedure f2(a, b: integer; var c: integer);

imp ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容