[Zayco]

Нужно найти в файле по Ф.И.О номер телефона. У меня только получается найти просто Фамилию. Помогите кто чем может.

Код:

var
   j:Integer;
   s:ansistring;
   s1,s2:AnsiString;
   f:TextFile;

         begin
           s2:='Ñòðîêè íà÷èíàþòñÿ ñî ñëîâà'+edit1.Text;
           Label1.Caption:=s2;
           s1:=Edit1.Text;
           j:=0;
           AssignFile(f,'D:\Input.txt');
           Reset(f);

           while not (Eof(f)) do
           begin
             j:=j+1;
             Readln(f,s);

             if Pos(s1,s2)>0
               then
                s2:=copy(s1,Pos(' ',s2)+1,Length(s2));
                Label1.Caption:=Label1.Caption+' '+IntTostr(j);
           end;
           CloseFile(f);
           if s2=Label1.Caption
            then
             Label1.Caption:=' ôàéëå íåò ñòðîê íà÷èíàþùèõñÿ ñî ñëîâà ' +edit1.Text;

         end


end.

[M.A.D.M.A.N.]

Запихай это в датасет.
и вообще, begin-end расставь, а то фиг поймёшь, какой-то полупитоновый стиль оформления.

[Zayco]

Блин, я уже парюсь с этой прогой неделю и нифига , а завтра сдача курсовой. Помоги пожалуйста чтоб прога роботала. Можешь по своему как-то сделать.Очень нужно.

[M.A.D.M.A.N.]

Плохо чо...

[Zayco]

Я так понял ты не поможешь?

[lmikle]

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