ЛАБОРАТОРНАЯ РАБОТА 5

Разработка приложения обработки строковой информации

Постановка задачи:

Разработать приложение с использованием компонент, управляющих представлением строковой информации в соответствии с индивидуальным заданием.

В задании исходные данные вводить с помощью компонента TEdit в компонент TListBox либо с помощью свойства Text в свойство Items компонента строки заканчивать нажатием клавиши Enter. Для выхода из программы использовать кнопку Close. Для расчетов вводить несколько различных строк.

Задание:Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

ListBox1: TListBox;

BitBtn1: TBitBtn;

Label1: TLabel;

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var n,ch:integer;

s,buf:string;

begin

s:=Edit1.Text+' ';

while s<>''do

begin

buf:='';

n:=pos(' ',s);

buf:=copy(s,1,n-1);

ch:=StrToInt(buf);

if ch mod 2 = 0 then ListBox1.Items.add (IntToStr(ch)) ;

delete(s,1,n);

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text := '';

end;

end.

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

При запуске программы появляется следующее окно:

Выводы: изучили свойства компонента TStringGrid. Написали программу с использованием массивов.