السرعة في البحت

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

كيف يمكنني الوصول الى البيانات بسرعة ؟
مثلا :
لديا ملف من نوع record يحتوي على ارقام بطاقات + اسمائها
كيف يمكنني الوصول الى البطاقة رقم 10 واظهار إسمها بدون استعمال هده الطريقة :
C_NX = 10

PHP كود :

function Open_Card_N(C_NX : integer):Tcard; // function Open card
  var
    F : file of TCard;
    TempCard : TCard;
  begin
    format_card(TempCard);
    Assignfile(F, File_Name);
    REset(F);
    while Not EoF(f) do
      begin
        read(f,TempCard);
        if C_NX = TempCard.Card_Number then
          begin
            result:=TempCard;
            Closefile(f);
            Exit;
          end;
      end; 


يعني بدون اجراء loop فهيا تضيع الوقت
افيدونا بايي طريقة اخرى تكون اسرع افادكم الله
بارك الله فيكم