Mega Code Archive

Neoturk forum - memo içindeki verileri sıralamak

" 14 Aralık 2005 19:20 MEMO İÇİNDE SIRALAMA Arkadaşlar öncelikle herkese merhaba şimdi benim sorunum şu bi memo içinde bulunan değerleri alfbetik veya küçükten büyüğe doğru sıralamam gerek... yani kısacası memonun içindeki değerleri nasıl sıralarım yardım edeenlere şimdiden teşekkürler... herkese kolay gelsin... LeWo " ********************************* 15 Aralık 2005 01:03 Önce memo dakileri sorted özelliği true olan bir listbox a atıp onları tekrar memo içine alabilirsin. Karahan1453 ********************************* cevap: sıralama kodları ile ilgili örnekleri önceki yazılarımda göndermiştim. bakınız: "listbox içindeki elemanları sıralamak" memo içindeki verileri sıralatıp tekrar aynı memo içerisine aktarmak için aşağıya gereken kodu yazıyorum...... forma 1 adet memo(içine bilgiler giriniz), 1 adet button yerleştiriniz. //...written by neoturk - 16.12.2005 procedure sirala(xmemo:Tmemo;tur:string); var tx:tstringlist;m:integer; begin tx:=tstringlist.Create; tx.Text:=xmemo.Text; tx.Sort;xmemo.Clear; if tur='duz' then xmemo.Text:=tx.Text else begin for m:=tx.Count-1 downto 0 do xmemo.Lines.add(tx.Strings[m]); end; tx.Free; //final end; procedure TForm1.Button1Click(Sender: TObject); begin sirala(memo1,'duz'); //sirala(memo1,'ters'); end; not: Lewo arkadaşım, gördüğüm kadarı ile hala kendini geliştirmiyorsun. önceki sorduğun sorulara nispeten bu sorduğun soru beni açıkçası üzdü... ki senin bunu yazabiliyor olabilmen gerekiyor idi.... şu ana kadar sormuş olduğun sorulara bakarak bu yorumumu yaptım. kodlama mantığını geliştir, daldan dala sıçrıyorsun......... kolay gelsin...... saygılarımla_ neoturk_