лабораторная работа / лабораторные работы по LAZARUS / Отчет спо лазарус лаба 4

Цель работы: освоить применение компонентов ListBox и СomboBox и создать приложение, в котором используются строки.

Задание: Выведите на экран все цифры, встречающиеся в строке.

Ввод строки заканчивать нажатием клавиши Enter. Работа приложения должна завершаться нажатием кнопки Close.

Листинг программы:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,

Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

BitBtn1: TBitBtn;

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

ListBox1: TListBox;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: char);

procedure FormActivate(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var

st,st1,st2,st3: string;

i,nst,id: integer;

begin

nst:=ListBox1.ItemIndex;

st:=ListBox1.Items[nst];

for i:=1 to Length(st) do

if (st[i]>=#48) and (st[i]<=#57) then

st1:=st1+copy(st,i ,1);

Label3.Caption:=#13+st1;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);

begin

if key=#13 then

begin

ListBox1.Items.Add(Edit1.Text);

Edit1.Text:='';

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

Edit1.SetFocus;

end;

initialization

{$I unit1.lrs}

end.