Код для события Click Компонента button10

procedure TForm2.Button10Click(Sender: TObject);

begin

memo1.clear;

end;

Рисунок3 – Форма 3

Создана таблица (StringGrid1) в которую будет подсчитана сумма выдачи, с учетом комиссии. Затем были созданы edit1,2 и к ним 2кнопки(Button1,2) – «ОК», «Принять».

- в edit1 вводим изменение курса валюты в таблицу.

- в edit2 вводим сумму взноса в таблицу

- редактирует выбранную ячейку в таблице.

- Вычисляет сумму выдачи.

Код для события Click Компонента button2

procedure TForm3.Button2Click(Sender: TObject);

begin

tab1.cells[tab1.col,tab1.row]:=Edit1.text;

end;

Код для события Click Компонента button3

procedure TForm3.Button3Click(Sender: TObject);

var

res,kom,kurs:real;

i:integer;

r,c:integer;

begin

if edit2.text='' then

begin

showmessage('Введите сумму!');

exit;

end;

for i := 1 to tab1.rowcount-1 do

begin

tab1.cells[5,i]:=edit2.Text;

kom:=strtofloat(edit2.text)/100*2;

tab1.cells[4,i]:=floattostr(kom);

res:=strtofloat(edit2.text)-kom;

kurs:=strtofloat(tab1.cells[1,1]);

tab1.cells[2,1]:=floattostr(res/kurs);

kurs:=strtofloat(tab1.cells[1,2]);

tab1.cells[2,2]:=floattostr(res/kurs);

kurs:=strtofloat(tab1.cells[1,3]);

tab1.cells[2,3]:=floattostr(res/kurs);

end;

Дата добавления: 2014-07-23; просмотров: 379; Нарушение авторских прав

Мы поможем в написании ваших работ!