Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.01.2010, 18:15   #1
ЭлЭрДжи
Новичок
Джуниор
 
Регистрация: 03.01.2010
Сообщений: 2
По умолчанию БД на Delphi

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

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

Код:
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
ЭлЭрДжи вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 666dart666 Помощь студентам 11 04.11.2010 17:57
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi Верчик Помощь студентам 9 02.03.2009 17:46
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? redred Общие вопросы Delphi 10 11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? dagarik БД в Delphi 7 22.10.2007 17:54
не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi' Nemesisking Компоненты Delphi 7 08.09.2007 03:27