PDA

View Full Version : سوال: تفاوت end



Mask
شنبه 18 دی 1389, 15:33 عصر
کد زیر رو ببینید.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='1' then
begin
if Edit2.Text='2' then
begin
ShowMessage('');
end
end;
end;چه فرقی با این کد داره.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='1' then
begin
if Edit2.Text='2' then
begin
ShowMessage('');
end;
end;
end;در صورتی که هر دو کد کار میده.

vcldeveloper
شنبه 18 دی 1389, 15:54 عصر
فرقی نداره؛ در پاسکال وجود ; بعد از آخرین دستور یک بلوک از کد اختیاری هست. اون end مورد نظر شما هم آخرین دستور بلوک مربوط به if Edit1.Text... هست.

firststep
شنبه 18 دی 1389, 15:59 عصر
خوب حتی شما می تونید بعد از showmessage هم می تونستید ; قرار ندین:لبخندساده: