[ЭлЭрДжи]

Здравствуйте. Нужна помощь: дана программа базы данных, в нее нужно интегрировать кнопку поиска и вывода студентов-однофамильцев на отдельную форму. пробовал писать процедуры, видимо, где-то ошибка...

вот функция поиска однофамильцев и процедура обработки, помогите пожалуйста, очень надо

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

function IsOdnofam(S: TStud): boolean; var   c             : array of string;   compare  : string;   b,r           : char;   i,j,jc         : integer; begin   Result := true;   SetLength(c,StringGrid1.RowCount - 2);  i := 0; jc := 0; for j := 1 to StringGrid1.RowCount - 1 do   begin     b := cells[5,j];     while b[i] <> ' ' do       begin         r := r + b[i];         Inc(i);       end;     c[j-1] := r;   end; while jc <> StringGrid1.RowCount do for j := jc to StringGrid1.ColCount - 1 do   begin     compare := c[jc];     i := j;     if (compared = c[j]) and (i <> j) then     result:=false;   end;    if j = StringGrid1.ColCount - 1 then       inc(jc);   end; end. end;   procedure SetFindOdnofam(StringGrid: TStringGrid); var   i: word;   j: integer; begin   FindStr:=AnsiUpperCase(FindStr);   ResetStud; i:=0; adr:=-1;   with StringGrid do   while not EOF(fStud) do   begin     Read(fStud,Stud); adr:=adr+1;   // AnsiUpperCase(const S: string): string;     if (Stud.y<>0) and (IsOdnofam(Stud)) then begin       Inc(i);       Cells[0,i]:=IntToStr(adr);       Cells[1,i]:=IntToStr(i);       Cells[2,i]:=IntToStr(Stud.IdGroup);       Cells[3,i]:=IntToStr(Stud.IdStud);       Cells[4,i]:=Stud.FIO;       end;   end;   StringGrid.RowCount:=i+1;   if i>0 then StringGrid.FixedRows:=1;   CloseFile(fStud); end;

если что, сам проект выложил здесь http://dump.ru/file/4080317

[r1x]

У меня есть программе Телефонный справочник написанный на StringGrid единственное что он сохраняет все данные в текстовый файл но думаю перебить на любую др. БД не будет проблема.