БД в Delphi (очень важная лаба, помогите пожалуйста)

← →
ЭлЭрДжи (2010-01-05 18:18) [0]

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

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

[CODE]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;[/CODE]

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

← →
Anatoly Podgoretsky © (2010-01-05 18:43) [1]

Тут базой даже и не пахнет.

> end;[/CODE]

вот те раз.. думал, убьют сразу

а вот те 2 - думал Штирлиц, бросая из окна на голову Бормана следующий кактус

БД в Delphi (очень важная лаба, помогите пожалуйста) Найти похожие ветки