Delphi поиск в блокноте

[OTGB]

evg_m Всё равно выдаёт ошибку только уже в

( Pos(......, fam) =1 ) then

что не так в коде

unit search_file;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xpman, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    OpenDialog1: TOpenDialog;
    XPManifest1: TXPManifest;
    procedure ScanDir(StartDir: string; Mask: string; List: TStrings); //поиск в папке
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ts: TStringList; // списко строк, сюда загружеются все пути к файлам *.txt

implementation

{$R *.dfm}

procedure tform1.ScanDir(StartDir: string; Mask: string; List: TStrings);
//процедура поискаи заполнения   списка строк
var
  SearchRec: TSearchRec;
begin
   Mask := '*.txt';

  if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else
        if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
        begin
          List.Add(StartDir + SearchRec.Name + '\');
          ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
        end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
  memo1.ReadOnly := True; //отмена редактирования содержимого memo1
  memo1.clear; // чистка мемо
  ts := tstringlist.Create(); //создаем список строк
  ts.Clear; //чистим
            //1 параметр-путь к папке с файлами
            //2-маска
            //3-куда заполняем
  ScanDir(ExtractFilePath(ParamStr(0)), '1', ts);

  


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ts.free; //освобождаем память, занятую ts
end;

procedure TForm1.Button1Click(Sender: TObject);
var s, filespisok: string; // строка пути к одному файлу из списка ts[i]
//строка текущее
  i, j: integer; //переменная для адресации по tsp[i], и вторая переменная
  //для поиска в search списке
  search: TStringList; //список, куда грузится файл

  god, fam, im, otch: string;
begin
  search := TStringList.Create;
  memo1.Clear;

  god := Trim(AnsiLowerCase(LabeledEdit1.text));
  fam := Trim(AnsiLowerCase(LabeledEdit2.text)); //убираем пробелы и приводим к общему регистру
  im := Trim(AnsiLowerCase(LabeledEdit3.text));
  otch := Trim(AnsiLowerCase(LabeledEdit4.text));

  for i := 0 to ts.Count - 1 do //просмотр списка с путями к файлам
  begin
    s := ts[i]; //загрузка i-го пути в строку
    search.clear; //чистка списка с содержимым загруженного файла


    if FileExists(s) then //если файл найден, то
    begin
      search.LoadFromFile(ts[i]); //загружаем его в список

      for j := 0 to search.count - 1 do //выполняем поиск по списку пока не последняя строка
      begin
         if (j mod 8)=4 and
            ( Pos(......, fam) =1 ) then


        if Pos(Trim(AnsiLowerCase(search[j])), fam) = 1 then //если есть вхождение подстрки
       // в строку, то выводим название файла
       //т.е. если ввели вор, а в файле воропаев, то условие сработает и в memo результат
       //выведится

          memo1.Lines.Add(' ' + ExtractFileName(ts[i]));


      end;




    end
    else
    begin
      ShowMessage('файл потерян!');
      Continue;
    end;


  end;

  search.free; //освобождаем память.
end;




end.

[Аватар]

if (j mod 8)=4 and
            ( Pos(......, fam) =1 ) then

А кто будет 1-ое условие в скобочки брать? Или берутся только четные?

[OTGB]

Аватар и какое условие в скобочки брать?

[Serge_Bliznykov]

Сообщение от OTGB

Аватар и какое условие в скобочки брать?

всё, к чему применяются ЛОГИЧЕСКИЕ операнды (NOT, OR, AND)!

для вашего случая:

       if ( (j mod 8)=4 ) and
            ( Pos(......, fam) =1 ) then

[OTGB]

Serge_Bliznykov Честно не очень всё понимаю.( Посмотри те что же за ошибка в этой программе.

[Аватар]

Что тут понимать, скобки посчитай, глаза попяль на пример от Сержа

[OTGB]

Аватар причём тут кол-во скобок?

[Аватар]

Я пас, педагог с меня хреновый

[evg_m]

http://www.programmersforum.ru/showp...4&postcount=52
Вар 1. скобки выделенные красным.

[OTGB]

evg_m и опять ошибка вот тут

( Pos(......, fam) =1 ) then