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

[hanipino]

ذكرت هذا .. فقط .. لكى لاتسئلينى عن الدالة + ليست طريقتى ..

عملت تغير صغير فقط على الدالة ExtractStrings الموجودة فى الوحدة Classes

انا قلت انى اضفت شىء صغير فقط . و هو :

PHP كود :

if (Strings.IndexOf(Item)< 0) then 
           begin 
            SetLength(ArrStr,Indx+1); 
            Strings.Add(Item); 
            ArrStr[Indx]:=(Item); 
            Inc(Indx); 
           end; 


هذه الدالة دالة جاهزة , طايبة من عند (Borland) . صالحة للاكل .

حاولى ان تفهميها .