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

[OTGB]

min@y™, вооот. Мне осталось только узнать куда эти 3 кода пихать.

  if ( (j mod 7)=2 )and ( Pos( im, Trim(AnsiLowerCase(search[j]))) =2 ) then
          memo1.Lines.Add(' ' + ExtractFileName(ts[i])+', ' + search[j+4]);

  if ( (j mod 7)=3 )and ( Pos( otch,Trim(AnsiLowerCase(search[j]))) =3 ) then
          memo1.Lines.Add(' ' + ExtractFileName(ts[i])+', ' + search[j+4]);

if ( (j mod 7)=0 )and ( Pos( god,Trim(AnsiLowerCase(search[j]))) =0 ) then
           memo1.Lines.Add(' ' + ExtractFileName(ts[i])+', ' + search[j+4]);

Мне просто нужно узнать куда это правильно вписать.

[evg_m]

Мне просто нужно узнать куда это правильно вписать.

Сначала русским языком пишется ЧТО мы хотим сделать (тот самый алгоритм)
именно этого от вас и хотят, требуя шаблон поиска.
А потом добиваются чтобы ЭТОТ алгоритм стал понятен транслятору (пишут КОД объясняющий транслятору каждую строчку, каждое слово АЛГОРИТМА)
или же пишут НОВЫЙ алгоритм ДЛЯ объяснения какого-нибудь слова или фразы в исходном алгоритме, и который ПОТОМ станет процедурой или функцией.
http://www.gunsmoker.ru/2011/01/blog-post.html

[min@y™]

Мне осталось только узнать куда эти 3 кода пихать.

я б за это время написал готовую программу с нуля.
хорошую, красивую и рабочую.

Оффтоп: вчера на айтихэппенс наткнулся на правильный текст. Очень рекомендую прочитать.

------------- текст -------------
Студенты-программисты, говорите, у вас в компьютерах плохо разбираются? А вы не думали, почему так получилось?

Жил-был как-то поток студентов, поступивших в один из лучших в стране технических вузов на самый компьютерный факультет. Студенты были самые разные. Один с компьютером, можно сказать, родился. Ещё двое с первого курса подрабатывали фрилансом. Ещё один вечерами пропадал на кафедре с таким же энтузиастом-преподавателем. Немногие свидетели их посиделок рассказывали о жарких спорах на какие-то околотехнические темы — и, что удивительно, спорах двух равных людей, а не гуру и падавана. Ещё был железячник от бога, определявший неисправности по звуку, запаху и положению звёзд в момент поломки. Ещё был мастер на все руки, для которого понятия «компьютер» и «невозможно» стояли где-то очень далеко друг от друга. Ещё была пара быдлокодеров, несколько клубных тусовщиков и классических девушек-ни-в-зуб-ногой, видимо, скинутых напористыми мамашами искать хорошего замужества.

А., родившийся с компьютером, работал по специальности ещё до поступления. На втором курсе он уже устраивался в крупную российскую компанию. На третьем — в международную. Вуз его ничему научить так и не смог. Более того, я подозреваю, что некоторым преподавателям было бы нелишне пройти у него стажировку, заодно спесь сбить. Документы забрать он прислал знакомого с доверенностью, благо сам жил уже в другой стране.

Б. и В., фрилансящие с первого курса, довольно быстро наработали неплохое портфолио и устроились сначала стажёрами, потом джуниорами в хорошие конторы. Про универ попросту забыли за текучкой. Забрать документы? А зачем они им? Аттестат на полочку положить? Так и лежат где-то в вузе…

Г., пропадавший на кафедре, перевёлся в другой вуз, более математический, и, кажется, получил степень. На этом его следы обрываются.

Д., железячник от бога, перешёл на заочку. Очень мешала учёба работе в крупной геймдев-компании. Забрал документы, когда не смог приехать на очередную сессию. Вместо сессии взял в охапку жену и полетел на тропические острова отдыхать. Судя по всему, не очень расстроился.

Е., мастер на все руки, работает починятелем примусов. Сколько он получает, не знаю, но квартиру себе уже купил. Учиться в вузе ему стало некогда довольно быстро.

Угадайте с трёх раз, кто получил дипломы? Да, правильно, все остальные дипломы и получили. Ну, разве что пара-тройка человек среднего уровня вылетели из-за собственного раздолбайства. Из тех, кто получил дипломы, что-то внятное написать могли меньше десяти процентов.

Морали не будет, здесь и так много букв. Такие дела.
--------------

[FaTaL]

Говорил используй INI-файл (раз уж так хочеться текстовые файлы). И кода было бы меньше и разобраться было бы легче. И самое главное, что ошибок было бы меньше, чем в неструктурированном файле.

[OTGB]

И как бы вы написали программу используя INI-файлом?

[OTGB]

Всё ребята я сделал как хотел.Теперь у меня он всё ищет, вот только появилась следующая проблема. Я ввожу год, имя, фамилию, отчество нажимаю на кнопку и он в memo1 четыре раза выводит этого человека.Что делать?

[OTGB]

И в memo1 ещё выводит (альбом№ 9.txt, стр.1.) как txt убрать, а то не красиво как то.

[evg_m]

Я ввожу год, имя, фамилию, отчество нажимаю на кнопку и он в memo1 четыре раза выводит этого человека.Что делать?

сначала проверить ВСЕ поля записи и потом вывести, а не выводить после КАЖДОЙ проверки.

Но для этого скорее всего придется переделывать большую часть поиска. Хотя можете попытаться использовать набросок вар 3 из моих предыдущих постов.

как txt убрать, а то не красиво как то.

Операции работы со строкой еще никто не отменял. Сopy Replace .... что еще

[OTGB]

сначала проверить ВСЕ поля записи а потом вывести.

А пример кода можно?

[evg_m]

//сначала проверить ВСЮ запись
isfound:=false; //изначально считаем что запись на не нужна
for i:=1 to 7 do begin // перебираем элементы записи
  case i of  //по элементо
  0: if ... then isfound:=true;  // проверяем условия и если надо отмечаем запись как удачную
  1: if ... then isfound:=true;
  ....
  end;
end;
if isfound then begin // если запись удачна 
 ... // делаем ВЫВОД
end;

читаем Вар 3
дописываем комментарии до кода и может быть ....