Объектно-ориентированное программирование на С++ - eDrive

29
Variant v = Edit3–>Text;
Label3–>Caption = (v.Type () == varString) v : BoolToStr (v.operator bool ());
}
В третьем примере дана форма с полями ввода Edit1 и Edit2, кнопкой
Button1 и надписью Label1:
class TForm1 : public TForm {
_ _published:
TEdit *Edit1;
TEdit *Edit2;
TLabel *Label1;
TButton *Button1;
void _ _fastcall Button1Click (TObject *Sender);
public:
AnsiString CalcF (double, double);
AnsiString CalcSF (AnsiString, double);
AnsiString CalcS (AnsiString, AnsiString);
};
При нажатии кнопки данные из полей формы преобразуются к нужному
формату, обрабатываются в соответствии с условием конкретной задачи, и
результат возвращается в надпись:
void _ _fastcall TForm1::Button1Click (TObject *Sender) {
AnsiString c = "";
try {
c = CalcF (StrToFloat (Form1–>Edit1–>Text),
StrToFloat (Form1–>Edit2–>Text));
} catch (Exception &EConvertError) {
try {
c = CalcSF (Form1–>Edit1–>Text, StrToFloat(Form1–>Edit2–>Text));
} catch (Exception &EConvertError) {
try {
c = CalcS (Form1–>Edit1–>Text, Form1–>Edit2–>Text);
} catch (...) { c = "Ошибка данных"; }
}
}
Form1–>Label1–>Caption = c;
}
Далее следуют обработчики кнопки Button1, которые выводят в надпись
Label1 решение трех задач: