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

[hanipino]

انجزت هذا الاجراء الذى يعمل تقريبا نفس عمل الدالة ExtractStrings مع امكانية منع اضافة حرف معين او كلمة + عدم تكرار المدخلات .

PHP كود :

procedure ExtractStrings2(Str:string;Separ:TSysCharSet; NotAdd:array Of string;Past:TStrings);
var
P:Pchar;
S:String;
 begin
   P:=PChar(Str);
   while (P^ <> #0) do
   begin
      if not (P^ in Separ) then
         begin
          S:=(S+P^);
          Inc(P);
         end
      else
         begin
          if not(MatchText(S,NotAdd))and(Past.IndexOf(S)<0) then
          Past.Add(S);
          inc(P);
          S:='';
         end;
   end;
   if not (MatchText(S,NotAdd))and(Past.IndexOf(S)<0) then
   Past.Add(S);
 end; 


الاستدعاء مثلا :

PHP كود :

ExtractStrings2('Hanipino: ,  delphi;     . delphi;  4',
                 [':',',',' '],
                 ['','.','4'],Lst1.Items); 


المخرجات :

كود :

Hanipino delphi;

شىء جميل ان نحاول صنع دوال مثل الدوال الموجودة بطرق اخرى .