Курсовая работа: Програма візуальної демонстрації пошуку елементів у масиві

MR. Top:=R;

MR. Right:=C;

MR. Bottom:=R;

SG. Selection:=MR;

ShowMessage ('Запись найдена');

Caption:='Top'+Inttostr(T)+'; Left'+inttostr(L)+'; C'+inttostr(C)+'; R'+inttostr(R);

break;

End;

End;

End;

End;

5. Процедура TSerPF працює таким чином, якщо тексту немає, то виконується умова, якщо немає ні '?', ні '*', то виконується процедура Search тобто простий або звичайний пошук, Якщо ж виявляється '?', то відбувається пошук з процедури SearchV, відповідно, якщо ж '*', то SearchZ, якщо '?' і '*' – SearchVZ

інакше повідомлення ShowMessage ('Введите текст котрий следует искать!');

procedure TSerPF. Button1Click (Sender: TObject);

begin

If TFS. Text<>'' then

Begin

If (Pos ('?', TFS. Text)<1) and (Pos ('*', TFS. Text)<1) then Search;

If (Pos ('?', TFS. Text)>0) then SearchV;

If (Pos ('*', TFS. Text)>0) then SearchZ;

If (Pos ('?', TFS. Text)>0) and (Pos ('*', TFS. Text)>0) then SearchVZ;

end

else

ShowMessage ('Введите текст котрый следует искать!');

end;

Лістинг програми приведений в додатку А.

7. Реалізація проекту у візуальному середовищі

Для реалізації даного проекту, мною було використано середовище візуального програмування Borland Delphi 7.0, яке на сьогоднішній день є одним із найпотужніших сучасних програмних засобів для розробки прикладного програмного забезпечення.

У Delphi програмні модулі позначаються словом «Unit», кожен з цих програмних модулів містить текст програми. Усі процедури та функції головної форми описуються у модулі Unit1. Компоненти вікна форми тестової програми описуються у Unit2. Вікно форми про програму належить до Unit3. Також на формі міститься кнопка «Вихід», тобто виходу з програми.