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

[OTGB]

min@y™ если вы не в состоянии помочь то не пишите, сюда. Сдесь не флудильня и не обсуждают человека за его не знания. Человек попросил помощи, а кто ему помогает это его выбор. А то что вы тут на до мной угорайте вас не красит.
и по вашему кто это написал если не я?

procedure TForm1.Button3Click(Sender: TObject);
begin
  assignfile (f,'D:\as\tgh.txt');
         Reset(f);
         flag:=false ;
         while not Eof(f) and not flag do begin
           Readln(f,login);
          readln(f,nom);
          Readln(f,fio);
          if login=Edit1.text then  begin
            flag:=True;
          end;
         end;
        CloseFile(f);
         if flag then begin
          edit2.text:=fio;
          assignfile (g,'D:\as\tekst.txt');
          reset(g);
          while not Eof(g) do begin
           readln (g,nomg);
           readln (g,godg);
           readln (g,merg);
           readln (g,dipg);
           if godg=nom then begin
             memo1.Lines.Add(merg) ;
             memo1.Lines.Add(dipg) ;

end;
end;
  CloseFile(g);
end;

[min@y™]

Вообще, судя по постам, такая прога пишется за один рабочий день, с перерывом на обед. Прога-то ерундовая, для спинного мозга.

Но есть одно "но": надо всё старое похерить и писать с нуля. И первым делом отказаться от txt и паскального I/O (гадость какая!); самое простейшее - как тут уже сказали - ini-файлы.

[OTGB]

min@y™

Вообще, судя по постам, такая прога пишется за один рабочий день, с перерывом на обед. Прога-то ерундовая, для спинного мозга.

это для вас.Не ровняйте людей по себе.

Но есть одно "но": надо всё старое похерить и писать с нуля.

Я и так программу начал с 0.

И первым делом отказаться от txt

нельзя отказаться. Мне запрещено.

[min@y™]

если вы не в состоянии помочь то не пишите, сюда.

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

Человек попросил помощи, а кто ему помогает это его выбор.

Неправда! Да, к тому же, ты не понимаешь, как применить оказанную тебе помощь.

[min@y™]

Не ровняй те людей по себе.

Ой, да я и не пытаюсь. Да и в текущей ситуации это невозможно.

Я и так программу начал с 0.

Вот её и надо похерить.

нельзя отказаться. Мне запрещено.

И тем не менее!

[OTGB]

min@y™

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

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

Неправда!

это почему же не правда?

[OTGB]

min@y™

И тем не менее!

Не каких тем не менее. Я понимаю может ваш вариант лучше, но если сказано было в txt

[min@y™]

это почему же не правда?

Человек попросил помощи, а кто ему помогает это его выбор.

Неправда! Это не выбор того, кто просит, а выбор тех, кто может!

Не буду спрашивать, в какой стране живёшь.
Как звучит задание в оригинале?

но если сказано было в txt

Допустим. Но паскальный I/O выкинуть нужно.

[OTGB]

min@y™

Неправда! Это не выбор того, кто просит, а выбор тех, кто может!

Даже если он может, выбор всё равно у него есть, помогать данному человеку или нет.

Как звучит задание в оригинале?

Создать многопользовательскую программу.

[OTGB]

min@y™зачем мне его выкидывать?