آموزش طریقه ی ارسال کد

سلام دوستان .
با توجه به درخواست یکی از دوستان و اساتید بنده ، بر این شدم که طریقه ی ارسال کد در انجمن رو براتون توضیح بدهم
1.مرحله ی اول :
کد بایستی از فایل اصلی مربوطه که با پسوند .pas* یعنی به صورت unit.pas است ، کپی شود ، نه از محیط ادیتور دلفی ...

2. مرحله دوم :

پس از کپی کردن کد در اینجا ( ادیتور )بایستی کد مورد نظر را انتخاب کرده و سپس از منوی مربوط به ادیتور گزینه ی "گذاشتن کد " را انتخاب نمایید.
در این صورت کد به صورت زیر خواهد بود .


کد:

کد:

---

procedure TMain.SpeedButton19Click(Sender: TObject);
begindm.data_base.Cancel;
if MessageDlg("آيا رکورد حذف شود؟",mtWarning,[mbYes,mbNo],0) = mryes then
begin
if dm.data_base.IsEmpty= false thenbegindm.data_base.Delete;
ShowMessage("رکورد مورد نظر حذف شد");
end;
end;
end;

---

موفق و موید باشید...