Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Повідомлення користувача wladuslaw119
Сторінки 1
я там создав чекбокс а трай там через те що там захист присвоювався до всього чек боксу А в тебе є координати procedure TForm1.BtnClick(Sender: TObject);
var F : string;
begin
if not (Sender is TButton) then Exit;
F := '?';
edt3.Text:= '';
C := 0;
if TryEdToExt(edt1, A) and TryEdToExt(edt2, B)
then begin
try
case (Sender as TButton). Tag of
1 : begin
F := ' + ';
C :=A + B;
ExprReport(edt1.Text, F, edt2.Text, C, Memo1);
end;
2 : begin
F := ' - ';
C := A - B;
ExprReport(edt1.Text, F, edt2.Text, C, Memo1);
end;
3 : begin
F := ' * ';
C :=A * B;
ExprReport(edt1.Text, F, edt2.Text, C, Memo1);
end;
4 : begin
F := ' / ';
C :=A / B;
ExprReport(edt1.Text, F, edt2.Text, C, Memo1);
end;
5 : begin
F := ' ^ ';
C :=Power(A,B);
ExprReport(edt1.Text, F, edt2.Text, C, Memo1);
end;
end;
edt3.Text:=FloatToStr(C);
except
ShowMessage('Вибач не під силу мені виконати: '
+ edt1.Text + F + edt2.Text);
end;
end;
end;
Сторінки 1