Delphida Copy va Paste funksiyalari bilan tanishamiz.

Bu dasturda bizga Edit, RichEdit va bitta Button kerak bo’ladi.

RichEditga bir qator mant kiritishingiz kerak.

Button ning OnClick xodisasiga, quyidagicha kod yozamiz :

procedure TForm1.Button1Click(Sender: TObject);

begin

  RichEdit1.SelectAll;  

  RichEdit1.CopyToClipboard;

  Edit1.Clear;

  Edit1.PasteFromClipboard;

  RichEdit1.SetFocus;

end;

1 – RichEdit1.SelectAll -> RichEdit1dagi barcha yozuvlarni tanlaydi;

2 – RichEdit1.CopyToClipBoard -> RichEdit1dagi ma’lumotlarni buferga saqlab qo’yadi.

3 – Edit1.Clear -> Edit1 ni tekstlarini o’chiradi.

4 – Edit1.PasteFromClipboard -> buferda saqlanib turgan ma’lumotlarni Edit1ga tashlaydi.

5 – RichEdit1.SetFocus -> RichEdit ga kursorni olib borib qo’yadi.

Endi dasturni biror joyga saqlaymiz, kampilyatsiya qilamiz va dasturni ishga tushiramiz. Dasturni endi sinab ko’rishingiz mumkin.