刚学DEPHI,不知道错在那里(50分)

  • 主题发起人 ivanmorgan
  • 开始时间
I

ivanmorgan

Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
function total{x,y:integer}:integer;
begin
total:x+y;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:integer;
begin
x:=2;
y:=3;
z:=total{x,y};
label1.Caption :=inttostrz{z} ;
end;

end.


运行的时候报错在这一行
total:x+y;

不知道那边错了
 
S

szhcracker

Unregistered / Unconfirmed
GUEST, unregistred user!
function total(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 := total(x, y);
label1.Caption := IntToStr(z);
end;

不要用大括号,这是注释,函数的结果用Result := ...
 
D

deardragon_2002

Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的解释很精辟
 

不能没有你

Unregistered / Unconfirmed
GUEST, unregistred user!
错在你不该学习这种没落的开发语言了.
 
D

dtboyi

Unregistered / Unconfirmed
GUEST, unregistred user!
是赋值,要用":=",不能光":".
 
G

gaobangsheng

Unregistered / Unconfirmed
GUEST, unregistred user!
严重鄙视楼上的 "不能没有你"
 
I

ivanmorgan

Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢了,分已经给出,问题已经解决了,感谢大家对一个不懂程序的新手的帮助
 

Similar threads

I
回复
0
查看
646
import
I
I
回复
0
查看
499
import
I
I
回复
0
查看
479
import
I
I
回复
0
查看
550
import
I
顶部