یک مشکل ساده . نوشتن فرمان IF و ELSE

[hentjanson]

سلام من تو این کو مشکل دارم

دو تا MASK EDIT دارم خاصیت ENABLE : FALSE قرار دادم

حالا یک checkbox گزاشتم که اگه کلیک خوررده باشه این دو تا maskedit فعال باشه و گرنه غیر فعال باشه

من این کدو اینطور نوشتم میشه کمکم کنید .
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
maskedit1.Enabled:=True;
maskedit2.Enabled:=True;
else
maskedit1.Enabled:=false;
maskedit2.Enabled:=false;

end;

[Ananas]

سلام. دستورات بیش از یک خط رو (منظور از پایان یک خط وقتی هست که برسیم به اولین ;) بین begin و end بگذاریدشون.

[hentjanson]

متوجه نشدم دوست من میشه کد منو تصحیح کنید متوجه اشکال کارم شم

[mohsen24000]

شما چند دستور را باید در بلوک قرار بدید تا به طور صحیح عمل کنه!

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
maskedit1.Enabled:=True;
maskedit2.Enabled:=True;
end
else
begin
maskedit1.Enabled:=false;
maskedit2.Enabled:=false;
end;
end;

[hentjanson]

بازم نشد میشه برنامه منو ببینید

[hentjanson]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
maskedit1.Enabled:=True;
maskedit2.Enabled:=True;
end
else
begin
maskedit1.Enabled:=false;
maskedit2.Enabled:=false;
end;

end;

[Felony]

جاي اين سوالات اينجا نيست ، اينها مباحثي هست كه تو هر كتاب و مقاله اي يافت ميشه ، قبل از هر كاري يك كتاب يا مقاله مقدماتي پيدا كن و بخون .