明天就要交了，可这是怎么回事？求大神帮忙！

你应该上源代码，这样谁知道你写什么
——那么问题来了！

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Unit3.Form3.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Unit4.Form4.ShowModal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Unit5.Form5.ShowModal;
end;
end.

@351317878

有人么

字串怎么变成*号了？

下断点调吧

就是你设个断点，定位错误位置啊，起码告诉我们哪里报错啊

楼主这回不及格了吧。

字符串的符号用错了吧

正确的
应该是：
Str1 := *Hello*;

for a:=1 to 20 do
TEdit(FindComponent(*Edit* + IntToStr(a))).Enabled :=false;
for a:=1 to 80 do
你能加个b不。。。 看着头大。。

还有e[+10] 这个。。。 提示说了 + 号不是 整数 。

+ 不是 integer

太乱了
你查一下 + 所在的位置，估计是在 整型转 其它类型的地方吧

啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦啦

LZ这种代码风格……变量一律用abcd，起名一律顺序数排列，看到这种代码我都自动忽略，一律当做没看到！

你是不是把edit里的'+'当数字strtoint了