Отчет по лабораторной работе 2


Отчет по лабораторной работе №2Врублевский А.В. группа 381061

На основе динамических списков необходимо реализовать словарь.

Основные операции, выполняемые над данными словаря:

- поиск,

- вставка;

- удаление.



procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

StringGrid1.Cells[0,0]:=’Number’;

StringGrid1.Cells[0,1]:=’Word’;

StringGrid1.Cells[1,1]:=’A';

StringGrid1.Cells[2,1]:=’K';

StringGrid1.Cells[3,1]:=’Z';

for i:=1 to StringGrid1.ColCount-1 do

StringGrid1.Cells[i,0]:=inttostr(i);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

for i:=1 to StringGrid1.ColCount-1 do

if StringGrid1.Cells[i,1]=edit1.Text then

label1.Caption:=’RESULT: word number ‘+ StringGrid1.Cells[i,0];

// else label1.Caption:=’HAVE NO RESULT’;

Edit1.Clear;

end;

procedure TForm1.Button3Click(Sender: TObject);

var i,a:integer;

begin

for i:=1 to StringGrid1.ColCount-1 do

if StringGrid1.Cells[i,1]=edit2.Text then

begin

for a:=i to StringGrid1.ColCount-1 do

StringGrid1.Cells[a,1]:=StringGrid1.Cells[a+1,1];

StringGrid1.ColCount:=StringGrid1.ColCount-1;

end;

Edit2.Clear;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit3.Enabled:=true;

Button4.Enabled:=true;

end;



procedure TForm1.Button4Click(Sender: TObject);

var i:integer;

begin

if edit3.Text<>» then

begin

StringGrid1.ColCount:=StringGrid1.ColCount+1;

for i:=1 to StringGrid1.ColCount-1 do

StringGrid1.Cells[i,0]:=inttostr(i);

StringGrid1.Cells[StringGrid1.ColCount-1,1]:=edit3.Text ;



Edit3.Clear;

Edit3.Enabled:=false;

Button4.Enabled:=false;

end;

end;




Предыдущий:

Следующий: