Dizilerde Arama ve Sıralama

Dizilerle çalışmada generic yapıların faydaları olacaktır. Delphi generics.Default kütüphanesinde kullanıma hazır olarak gelen TArray sınıfırını kullanmanızı öneririm. Bu sınıf sıralama ve arama işlemleri için hazır static metodlar sunmaktadır.
Üstelik hali hazırda kullanmakta olduğunuz Array tanımlamalarını değiştirmenizede gerek yok.
Bu gün TArray.Sort metodu ile ilgili bir örnek vermek istiyorum.
Bu kodu olduğu gibi deneyecekseniz form üzerine bir adet TMemo yerleştiriniz.

 
var
 sArray:array[0..4] of string;
 iArray:array[0..4] of integer;
 i:integer;
begin
  sArray[0] := 'tufan';
  sArray[1] := 'berkant';
  sArray[2] := 'ilhan';
  sArray[3] := 'deniz';
  sArray[4] := 'gökmen' ;
  iArray[0] := 20;
  iArray[1] := 15;
  iArray[2] := 17;
  iArray[3] := 35;
  iArray[4] := 7;
  Memo1.Lines.Add('//UnSorted String Array');
  for I := 0 to length(sArray)-1  do
    Memo1.Lines.Add(sArray[i]);
 
 Memo1.Lines.Add('//UnSorted Integer Array');
  for I := 0 to length(iArray)-1  do
    Memo1.Lines.Add(inttostr(iArray[i]));
 
  TArray.Sort<String>(sArray);
 
  TArray.Sort<Integer>(iArray) ;
 
  Memo1.Lines.Add('//Sorted String Array');
  for I := 0 to length(sArray)-1  do
    Memo1.Lines.Add(sArray[i]);
 
 Memo1.Lines.Add('//Sorted Integer Array');
  for I := 0 to length(iArray)-1  do
    Memo1.Lines.Add(inttostr(iArray[i]));