Examples Delphi

"
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_