Question

很白痴的Delphi问题，求助高手

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

implementation

{$R *.dfm}

begin;

end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,sum,word: integer;
begin
i := 1;
sum := 0;
word:=StrtoInt(Edit1.Text);
for i := 1 to word do
begin;
sum:=sum+i
Edit1.Text := Inttostr(sum)
end;
end;
end.
系统提示：
[错误] Unit1.pas(28): '.' expected but ';' found
[错误] Unit1.pas(40): Missing operator or semicolon
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
什么地方出错了？
（注：一个小程序，在Edit1中输入任意数字，点击Button1会在Edit1中出现从1加到输入数字的结果）

Answer 1

在delphi中begin和end相当于其他语言的{}.括号（即begin ，end）后面是不需要加；的。另外你所写的程序语言，每句都要有；结尾。这样编译器才会知道你这句运行结束，否则他会一直运行到有；的地方作为一句的结束。这样肯定会出错。{$R *.dfm}后面begin，end多余删掉。你改正之后如果致命错误还存在，复制一下代码，关掉重新建一个运行试试。
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,sum,word: integer;
begin
i := 1;
sum := 0;
word:=StrtoInt(Edit1.Text);
for i := 1 to word do
begin
sum:=sum+i；
Edit1.Text := Inttostr(sum)；
end;
end；
end.

Answer 2

去掉 {$R *.dfm} 下面的

begin;

end;

Answer 3

begin;
这个分号去掉变成
begin
下面这两行没写分号
sum:=sum+i
Edit1.Text := Inttostr(sum)
在每行后面加一个分号
delphi中，一条语句是以;结束。

另外：
{$R *.dfm}
后面的begin
end;删掉

Answer 4

去掉 {$R *.dfm} 下面的
begin;

end;

sum:=sum+i
Edit1.Text := Inttostr(sum)
这两句后面加分号

应该就没问题 了