DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 19137911446
今日帖子: 14
在线用户: 22
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 mhjt20030103 (mhjt) ★☆☆☆☆ -
禁用账号
2004/2/13 14:29:51
标题:
被禁用帐号,仅在管理模式可见! 浏览:1790
加入我的收藏
楼主: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
-
作者:
男 bjdribllec ( ) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 14:35:14
1楼: date后没有括号,这不是C,是Delphi,呵呵
----------------------------------------------
-
作者:
男 lovedelphi1 (梦之铃) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 15:12:24
2楼: 楼上的:
Delphi为了和C/C++兼容,一个没有参数的过程或函数可以带括号.也可以不用括号.
他的错误应该是类型不匹配吧!
----------------------------------------------
-
作者:
男 lovedelphi1 (梦之铃) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 15:14:19
3楼: unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function a(s: Integer): Integer;
    function b(i: Integer = 1): integer;
    function c: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



function TForm1.a(s: Integer): Integer;
begin
  inc(s);
  Result := s;
end;

function TForm1.b(i: Integer): integer;
begin
  Result := i;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := IntToStr(a(b()));
  Self.Caption := IntToStr(a(c()));
end;

function TForm1.c: Integer;
begin
  Result := 100;
end;

end.
----------------------------------------------
-
作者:
男 mhjt20030103 (mhjt) ★☆☆☆☆ -
禁用账号
2004/2/13 16:27:19
4楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
-
作者:
男 mhjt20030103 (mhjt) ★☆☆☆☆ -
禁用账号
2004/2/13 16:38:45
5楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
-
作者:
男 zsredmoon (=^@^=) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 16:57:19
6楼: 使用yearof()好像要在uses中添加DateUtils
----------------------------------------------
按此在新窗口浏览图片
=^@^=
作者:
男 zsredmoon (=^@^=) ★☆☆☆☆ -
盒子活跃会员
2004/2/13 16:58:53
7楼: 按此在新窗口浏览图片 .按此在新窗口浏览图片 .按此在新窗口浏览图片 次问报按此在新窗口浏览图片 原因最按此在新窗口浏览图片 把报按此在新窗口浏览图片 信息一起发按此在新窗口浏览图片按此在新窗口浏览图片
----------------------------------------------
按此在新窗口浏览图片
=^@^=
作者:
男 mhjt20030103 (mhjt) ★☆☆☆☆ -
禁用账号
2004/2/14 13:45:24
8楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS