Question

delphi程序错误 [Error] Unit1.pas(38): Declaration expected but 'IF' found

procedure TForm1.btn1Click(Sender: TObject);
Var
MyStr,InsStr:string;
IndexNo,Count:Integer;
if StrToInt(edt3.Text) > Length(edt1.Text) then
begin
ShowMessage('请不要超过长度！');
Exit;
end;
indexNo :=StrToint(edt2.Text);
Count :=StrToint(edt3.Text);
Mystr :=edt1.Text;
InsStr :=edt4.Text;
Insert(InsStr,Mystr,indexNO);
Edt1.text :=MyStr;
end.

Answer 1

少了个Begin
procedure TForm1.btn1Click(Sender: TObject);
Var
MyStr,InsStr:string;
IndexNo,Count:Integer;
begin
if StrToInt(edt3.Text) > Length(edt1.Text) then
begin
ShowMessage('请不要超过长度！');
Exit;
end;
indexNo :=StrToint(edt2.Text);
Count :=StrToint(edt3.Text);
Mystr :=edt1.Text;
InsStr :=edt4.Text;
Insert(InsStr,Mystr,indexNO);
Edt1.text :=MyStr;
end.