unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure aaa(p1,p2,p3:integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure aaa(p1,p2,p3:integer);
var
a,b,c:integer;
begin
a:=abs(p1);
b:=2*p2;
c:=100*p3;
end;
end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure aaa(p1,p2,p3:integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure aaa(p1,p2,p3:integer);
var
a,b,c:integer;
begin
a:=abs(p1);
b:=2*p2;
c:=100*p3;
end;
end.
解决方案 »
- 怎样进行字符串和字符数组之间的转换
- delphi 能写像c#一样的数据层操作类吗?
- [入門問題]如何控制在输入框中迴車之後將內容向選定路徑下的記事本寫入?
- 机器名和计算机名有什么不同???
- 一个类型转换问题,请各位哥哥赐教!
- 请问一下有谁知道Delphi6的报表控件的帮助怎么才能找到吗?
- Delphi 获取远程SQL服务器的中可用的数据库备份(还原)路径
- Delphi 6的代码编辑器为何不能输中文?
- 请帮忙解惑SearchRec.Attr and faDirectory 虽然问题比较菜,但对我很重要啊。谢谢啊
- 如何在Pardox建立的有索引的数据库中Insert纪录
- 现有DBGIRDEH控件,请问如何让每一数据行也打印表头!!急!急!急!
- 关于查询的问题!
var
a,b,c:integer;
begin
a:=abs(p1);
b:=2*p2;
c:=100*p3;
end;