var

   MyForm:TclForm;

   noteMemo : TclMemo;

   testButton : TclButton;

   testEdit : TclEdit;

   testEdit2 : TclEdit;

   testEdit3 : TclEdit;

   testEdit4 : TclEdit;

   while_dongu_tut : Integer;

   str_tut : String;

   satir_sayisi : Integer;

   

void Click;

{

  while_dongu_tut = 1;

  str_tut = noteMemo.Text;

  satir_sayisi = noteMemo.Lines.Count;

  

  while (while_dongu_tut <= satir_sayisi)

  {

    if (while_dongu_tut == 1) 

    {

      testEdit.Text = noteMemo.Lines.Text;

      noteMemo.Lines.Delete(0);

    }

    else if (while_dongu_tut == 2)

    {

      testEdit2.Text = noteMemo.Lines.Text;

      noteMemo.Lines.Delete(0);

    }

    else if(while_dongu_tut == 3)

    {

      testEdit3.Text = noteMemo.Lines.Text;

      noteMemo.Lines.Delete(0);

    }

    else if(while_dongu_tut == 4)

    {

      testEdit4.Text = noteMemo.Lines.Text;

      noteMemo.Lines.Delete(0);

    }

    

    while_dongu_tut = while_dongu_tut + 1;

  }

  

  noteMemo.Text = str_tut;

  

}

 

{

  

  MyForm = TclForm.Create(Self);

  noteMemo = MyForm.AddNewMemo(MyForm,'noteMemo','');

  noteMemo.StyledSettings = ssFamily;

  noteMemo.align = alTop;

  noteMemo.Lines.Add('testButton1 içine yazılacaklar');

  noteMemo.Lines.Add('testButton2 içine yazılacaklar');

  noteMemo.Lines.Add('testButton3 içine yazılacaklar');

  noteMemo.Lines.Add('testButton4 içine yazılacaklar');

  noteMemo.Height = 200;

  noteMemo.Width = 150;

  

  testButton = MyForm.AddNewButton(MyForm,'testButton','Click');

  testButton.StyledSettings = ssFamily;

  testButton.TextSettings.Font.Size = 20;

  testButton.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c');

  testButton.align = alTop;

  MyForm.AddNewEvent(testButton,tbeOnClick,'Click');

  testEdit = MyForm.AddNewEdit(MyForm,'testEdit','testEdit');

  testEdit.StyledSettings = ssFamily;

  testEdit.TextSettings.Font.Size = 20;

  testEdit.clTypeOfField = taString;

  testEdit.align = alBottom;

  testEdit.ReadOnly = False;

  testEdit2 = MyForm.AddNewEdit(MyForm,'testEdit2','testEdit2');

  testEdit2.StyledSettings = ssFamily;

  testEdit2.TextSettings.Font.Size = 20;

  testEdit2.clTypeOfField = taString;

  testEdit2.align = alBottom;  

  testEdit2.ReadOnly = False;

  testEdit3 = MyForm.AddNewEdit(MyForm,'testEdit3','testEdit3');

  testEdit3.StyledSettings = ssFamily;

  testEdit3.TextSettings.Font.Size = 20;

  testEdit3.clTypeOfField = taString;

  testEdit3.align = alBottom;  

  testEdit3.ReadOnly = False;

  

  testEdit4 = MyForm.AddNewEdit(MyForm,'testEdit4','testEdit4');

  testEdit4.StyledSettings = ssFamily;

  testEdit4.TextSettings.Font.Size = 20;

  testEdit4.clTypeOfField = taString;

  testEdit4.align = alBottom;

  testEdit4.ReadOnly = False;  

  

  MyForm.Run;

}