مشروع القران الكريم ( تصف العمل اكتمل )

[onexite]

الخط الجديد

خاصية البحث

PHP كود :

function TForm2.QuranFind(_SoraIndex,_AyaIndex: Word): string;
var
    i,starting_row:Word;
    list:TStringList;
begin


try
try
StatusBar1.Panels[0].Text:='';
Result:='';
//من اين تبدا السورة
starting_row:=QuranTable.starting_row[_SoraIndex];
// اختيار الايات من اين تبدا الى حد مجموع الايات
list:= QuranSelect(starting_row,starting_row+suwarLength[_SoraIndex]);
 //SELECT imlai FROM Quran WHERE imlai like '+QuotedStr('%'+str+'%')
if _AyaIndex > suwarLength[_SoraIndex] then begin
                                           StatusBar1.Panels[0].Text:='لا توجد اية برقم : ' +inttostr(_AyaIndex) +' اقصى حد : '+inttostr(suwarLength[_SoraIndex]);
                                           Exit;
                                            end;
if list.Count > 0 then begin
 Result:=list[_AyaIndex-1];
  StatusBar1.Panels[0].Text:='تم العثور على '+inttostr(list.Count)+' ايات';
end else StatusBar1.Panels[0].Text:='لم يتم العثور على ما يناسب بحثك';

finally
list.Free
end;

except on e:exception do StatusBar1.Panels[0].Text:=' حدث خطأ '+e.Message; end;

end; 


عملية البحث

PHP كود :

procedure TForm2.Button1Click(Sender: TObject);
begin
Memo2.Text:=QuranFind(ComboBox1.ItemIndex+1,SpinEdit1.Value) ;
end; 


الخط المستخدم

PHP كود :

http://fonts.qurancomplex.gov.sa/