Başlangıç > Kodlar > Delphi ile sayıları küçükten-büyüğe sıralamak

Delphi ile sayıları küçükten-büyüğe sıralamak


Memoya girilen dağınık sayıları küçükten büyüğe sıralayan küçük bi örnek....

ihtiyacımız olanalar
(2 tane buton iki tane memo="memo1 ve memo2" 🙂

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Memo2.Lines.SaveToFile('c:\sayiorcun.txt');
memo1.Lines.LoadFromFile('c:\sayiorcun.txt');
end;

//c deki bi dosyaya sayı gönderip tekrar çağırdık...

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
m,n,k,yaz:integer;
begin
n:=Memo1.Lines.Count-1;
for m:= 0 to n do
for k:= m+1 to n do
if strtoint(Memo1.Lines[m])> strtoint(Memo1.Lines[k]) then
begin
yaz:=strtoint(Memo1.Lines[m]);
Memo1.Lines[m]:=Memo1.Lines[k];
Memo1.Lines[k]:= inttostr(yaz);
end;

end;


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: