Программирование операций с символами и строками в средах Turbo Pascal и Delphi 6.0: Учебное пособие, страница 4

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  s:string;

  i:integer;

  a,b:integer;

begin

    a:=0;

    b:=0;

     s:=Edit1.Text;

for i:=1 to length(s) do

    begin

        if s[i]=',' then a:=a+1;

        if s[i]='-' then b:=b+1;

     END;

MEMO1.LINES.ADD('КОЛ-ВО СИМВОЛОВ( ,)='+INTTOSTR(A));

MEMO1.LINES.ADD('КОЛ-ВО СИМВОЛОВ (-)='+INTTOSTR(B));

END;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Задача 4.3.1. Удаление из 2-х слов  совпадающих символов  в среде Pascal.

                                       Текст программы

Program  prog4_31;

Uses WinCrt;

 var

    i:integer;

    slovo1:string[5];

    slovo2:string[5];

begin

    read(slovo1);

    read(slovo2);

    for i:=1 to length(slovo1) do

          if copy(slovo1,i,1)=copy(slovo2,i,1) then

                 begin

                       delete(slovo1,i,1);

                       delete(slovo2,i,1);

                       memo1.lines.add(slovo1+' '+slovo2 );

                 end;

   end;

                  Результат  работы программы

Задача 4.3.2. Удаление из 2-х слов  совпадающих символов  в среде Delphi

.

                                             Решение

1. Открыть новый проект командой главного меню File | New | Application.

2. Поместим на форме Form1  компоненты  в соответствии с макетом

3. Выделим объект  Form1  (щелкнем  в окне формы) и для свойства Caption(заголовок) установим значение  "Программа, удаления одинаковых символов".

4.Для меток Label1 и Label2  зададим  свойство Caption "Слово 1” и

“Слово 2”, выбрав нужный шрифт (Font, его размер и цвет) .

6.  Для компонента Memo1(многострочный редактор) выберите свойство

Lines и щелкните по кнопке с тремя точками. В появившемся окне String list editor    удалите строку  'Memo1'. Нажмем ОК.

7. Для  однострочных  редакторов Edit1и Edit2 значение для свойства Text установите равным пустой строке.

7. Для кнопки Button1 установите значение  свойства Caption Вычислить, а кнопки Button2  - Закрыть.

9.  Активизируйте двойным щелчком кнопку Вычислить  и в заготовку

обработчика события OnClick (Между строками

      procedure TForm1.Button1Click(Sender: TObject);

и    end;)

поместите текста процедуры:

var

 i:integer;

    slovo1:string[5];

    slovo2:string[5];

begin

slovo1:=edit1.text;

    slovo2:=edit2.text;

    for i:=1 to 5 do

          if copy(slovo1,i,1)=copy(slovo2,i,1) then begin

delete(slovo1,i,1);

           delete(slovo2,i,1);

           memo1.lines.add(slovo1+' '+slovo2 );

      end;

8. Активизируйте двойным щелчком кнопку Закрыть и в заготовку обработчика события OnClick поместите код  Form1.close;

10. Сохраните проект при помощи команды  меню File | Save Project As.

 в новую папку, например, C:\MyProject\sim1.

11. Выполните компиляцию программы  и исправьте ошибки. если они будут обнаружены.

12. Запустите программу с помощью клавиши F9.

                                Результат решения задачи

13. Удалите проект

Полный  текст модуля

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);