Подскажите, как производить вычесление с клавиатуры?
Делал так:
Код: Выделить всё
void __fastcall TForm1::RichEdit1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
switch (z) {
case VK_ADD : x1+=x2 ; break; // Add
case VK_MULTIPLY: x1*=x2; break; // Mul
case VK_SUBTRACT: x1-=x2; break; // Sub
case VK_DIVIDE: x1/=x2; break; // Div
}