delphi if的问题。。。

[ilostlove]

procedure TForm1.Edit1Change(Sender: TObject);
var stringleng:integer;
begin
begin
stringleng:=edit1.GetTextLen ;
edit2.Text :=inttostr(stringleng);
if stringleng>6 then
showmessage('超过了，不给了')
else
if stringleng<6 then;
showmessage('还可以的');
showmessage('真的不给了');
end;

end;
end.

[sher12]

procedure TForm1.Edit1Change(Sender: TObject);
var stringleng:integer;
begin
stringleng:=edit1.GetTextLen ;
edit2.Text :=inttostr(stringleng);
if stringleng>6 then showmessage('超过了，不给了')
else if stringleng <6 then showmessage('还可以的')
else showmessage('真的不给了');
end;


end.

[yct0605]

procedure TForm1.Edit1Change(Sender: TObject); 
var stringleng:integer; 
begin 
  stringleng:=edit1.GetTextLen; 
  edit2.Text:=inttostr(stringleng); 
  if stringleng>6 then 
     showmessage('超过了，不给了') 
  else 
    if stringleng <6 then 
       showmessage('还可以的'); 
    showmessage('真的不给了'); 
end; 

╮(╯▽╰)╭

[sanguomi]

关DELPHI鸟事

[xhxhmglychd]

procedure TForm1.Edit1Change(Sender: TObject);
var stringleng:integer;
begin
stringleng:=edit1.GetTextLen;
edit2.Text:=inttostr(stringleng);
if stringleng>6 then
showmessage('超过了，不给了')
else
if stringleng <6 then
showmessage('还可以的');
showmessage('真的不给了'); //无论上面如何的执行，这句始终会无条件地被执行。
end;

有三个以上的选择条件，不如用case 。

[HanChin]

.....