مصفوفه لعمل Index لملف Text

[hanipino]

جربى هذه الدالة .

S الكلمة المراد البحث عنها .
Arr المصفوفة التى نبحث فيها .

PHP كود :

Type Str = Array[0..1] of String;
Function SearchInArray(S:String;Arr:Array Of String):Str;
var
  I:Word;
begin
  For I:= Low(Arr)to High(Arr)do
   if S = Arr[i] then  Break;
    if (I = 0) or (I = High(Arr)+1) then
      begin
        if I =     0       then Result[1]:=Arr[I+1];
        if I = High(Arr)+1 then Result[0]:=Arr[I-2];
      end
    else
      begin
        Result[0]:= Arr[I-1];
        Result[1]:= Arr[I+1];
      end;
end; 


استدعاء السطر السابق وعرضه فى edt2

PHP كود :

edt2.Text:=SearchInArray(edt1.Text,Arr)[0]; 


استدعاء السطر الاحق وعرضه فى edt3

PHP كود :

edt3.Text:=SearchInArray(edt1.Text,Arr)[1];