حول بناء محرك بحث بـ استخدام دلفي

[S.FATEH]

يمكنك استخدام خاصية Delimiter الخاصة بالـ TStringList
لم اجرب الكودارفق سطر كمثال او جزء من الملف النصي

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFile: TextFile;
  Text: string;
  StringList: TStringList;
  I: Integer;
  MyArray:Array [1..1000] of string;
begin
  StringList := TStringList.Create;
  StringList.Delimiter := ' ';
  i := 0;
  AssignFile(MyFile, 'concepts.txt');
  Reset(MyFile);
  repeat
    Readln(MyFile, Text);
    StringList.DelimitedText := Text;
    MyArray[I] := StringList[I];
    Inc(I)
  until Eof(MyFile);
  end;
end; 


بالتوفيق