TclMemo dan veri alma

   TclMemodan  toplu olarak nasil veri çekebiliriz mesela birden fazla edite.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
GMS16 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 29 Haziran 2024 Konum: BURSA Durum: Aktif Değil Puanlar: 21	Mesaj Seçenekleri Yanıt Yaz Alıntı GMS16 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: TclMemo dan veri alma Gönderim Zamanı: 01 Kasım 2024 Saat 16:41
	TclMemodan toplu olarak nasil veri çekebiliriz mesela birden fazla edite.

Yusuf Eren Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Temmuz 2023 Durum: Aktif Değil Puanlar: 29	Mesaj Seçenekleri Yanıt Yaz Alıntı Yusuf Eren Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 04 Kasım 2024 Saat 09:27
	Merhaba GSM16 .TclMemo nesnesinden toplu veri çekimi gerçekleştirmek için `Memo1.Text` şeklinde kullanım sağlayabilirsiniz. Aşağıda, TclMemo'dan TclEdit'e veri aktarımı yapan örnek kod yer almaktadır. Daha fazla bilgi için https://www.docs.clomosy.com/index.php/TclMemo sayfasını ziyaret edebilirsiniz. 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; }