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

[OTGB]

evg_m isfound:=false; пишет не известный идентификатор

[OTGB]

Serge_Bliznykov ага слейте тему на том форуме

[Serge_Bliznykov]

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

Serge_Bliznykov ага слейте тему на том форуме

Готово: слил две ваших темы в одну

[OTGB]

Serge_Bliznykov Спасибо.
Написал, но по моему какая то ахинея

 begin
           isfound:=false;
           for i:=1 to 7
           case i of


        0: if ( (j mod 7)=1 )and ( Pos( fam,Trim(AnsiLowerCase(search[j]))) =1 ) then isfound:=true;
           memo1.Lines.Add(''+ search[j+0]+', '+ search[j+1]+', '+ search[j+2]+', '+ search[j+ -1]+', '+ search[j+4] );

          1: if ( (j mod 7)=0 )and ( Pos( god,Trim(AnsiLowerCase(search[j]))) =1 ) then  isfound:=true;
           memo1.Lines.Add('' + search[j+1]+', '+ search[j+2]+', '+ search[j+3]+', '+ search[j+0]+', '+ search[j+5] );

         2: if ( (j mod 7)=2 )and ( Pos( im, Trim(AnsiLowerCase(search[j]))) =1 ) then    isfound:=true;
          memo1.Lines.Add('' + search[j+ -1]+', '+ search[j+0]+', '+ search[j+1]+', '+ search[j+ -2]+', '+ search[j+3] );

          3: if ( (j mod 7)=3 )and ( Pos( otch,Trim(AnsiLowerCase(search[j]))) =1 ) then   isfound:=true;
          memo1.Lines.Add(''+ search[j+-2]+', '+ search[j+-1]+', '+ search[j+0]+', '+ search[j+-3]+', '+ search[j+2] );

             end;

[OTGB]

Так и не смог ничего сделать((

[Serge_Bliznykov]

OTGB, извините, я так и не смог выделить время, чтобы посмотреть ваш проект...
У Вас сроки сильно поджимают?

[OTGB]

Serge_Bliznykov 20 апреля, После чего идёт гост экзамен по этому модулю.

[Serge_Bliznykov]

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

идёт гост экзамен по этому модулю.

"гос" (сокращение от "государственный")

я понял насчёт сроков.
ок. постараюсь сегодня вечером глянуть, что Вы там ваяете и, главное, что именно у Вас не получается!
я пока не могу понять, что именно у Вас не выходит!

p.s. Про то, что Вы крайне неудачно выбрали формат хранения информации, Вам уже говорили неоднократно, повторять это ещё раз я не буду!

[OTGB]

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

[OTGB]

Немного изменил. Теперь должно быть так. Водим Фамилию и имя на 1 форме. После чего программа переходит на 2 форму и в memo выводит информацию. В программе есть файл (Награды), где находятся фамилии, имена, отчество и т.д. Надо чтобы вводя в строки фамилия и имя, он считывал информацию в блокноте и на 2 форме выводил информацию об этом человеке.