Курсовая работа: Програма візуальної демонстрації пошуку елементів у масиві
End;
End;
End;
4. Процедура TSerPF. Search виконує пошук елемента у масиві при його знаходженні виводиться повідомлення: 'Запись найдена'
Procedure TSerPF. Search;
Var C, R: Integer;
MR: TGridRect;
Begin
For C:=L To KC. Value do
Begin
For R:=T To KR. Value do
Begin
If SG. Cells [C, R]=TFS. Text then
Begin
If C=KC. Value then
Begin
L:=1;
T:=R+1;
End
else
Begin
L:=C+1;
T:=R;
End;
If (R=KR. Value) and (C=KC. Value) then
Begin
T:=1;
L:=1;
End;