Калькулятор

[Arcueid1691]

Задание: написать калькулятор. Все написала, только проблема с проверкой точки. когда программа доходит до строчки с проверкой разделителя, то вылетает.Собственно надо проверить стоит ли точка, если нет, то поставить, а если да то ничего не должно происходить.

#include <vcl.h>
#pragma hdrstop
#include <iostream.h>

#include "UnitFormMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCalculator *Calculator;
double dOp1, dOp2, dRes, dMem;
int iKey;

//---------------------------------------------------------------------------
__fastcall TCalculator::TCalculator(TComponent* Owner)
	: TForm(Owner)
{
   LabelOp->Width = 316;
   DecimalSeparator ='.';
}
//---------------------------------------------------------------------------
void __fastcall TCalculator::Button2Click(TObject *Sender)
{

	LabelOp->Caption = LabelOp->Caption + ((TButton*)Sender)->Caption;

}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonDelClick(TObject *Sender)
{
	if(LabelOp->Caption.Length()!=0)
	LabelOp->Caption = LabelOp->Caption.Delete(LabelOp->Caption.Length(),1);
	else  LabelOp->Caption = 0;
}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonCMemoryClick(TObject *Sender)
{
	dOp1=0;
	dOp2=0;
	LabelOp->Caption = "";
}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonCAllClick(TObject *Sender)
{
	dOp1=0;
	dOp2=0;
	dMem = 0;
	LabelOp->Caption = "";
	LabelM->Caption = "";
}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonResClick(TObject *Sender)
{
	dOp2=  double(StrToFloat(LabelOp->Caption));
	LabelOp->Caption ="";
	switch(iKey)
	{

	 case 2: dRes = dOp1+dOp2;
			 LabelOp->Caption = dRes;
	 break;
	 case 3: dRes = dOp1-dOp2;
			 LabelOp->Caption = dRes;
	 break;
	 case 4: dRes = dOp1*dOp2;
			 LabelOp->Caption = dRes;
	 break;
	 case 5: dRes = dOp1/dOp2;
			 LabelOp->Caption = dRes;
	 break;
	 case 6: dRes = dOp1/dOp2;
			 LabelOp->Caption = FloatToStr(float(dRes));
	 break;
	 case 7: dRes = dOp1/dOp2;
			 LabelOp->Caption = IntToStr((int)dRes);
	 break;
	 }
}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonPlusClick(TObject *Sender)
{
   try
   {
	dOp1 = double(StrToFloat(LabelOp->Caption));
   }
	catch(...)
	{
	 ShowMessage("Error");
	}

   LabelOp->Caption = "";
   iKey = ((TButton*)Sender)->Tag;
}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonDotClick(TObject *Sender) //вот здесь проблемы.
{
	int iOp=LabelOp->Caption.Length();
	for(int i=0; i<iOp; i++)
	{

	if(LabelOp->Caption[i]!=215)
	 {
	  LabelOp->Caption = LabelOp->Caption + ".";
	 }
	}
}
//---------------------------------------------------------------------------
	 
void __fastcall TCalculator::ButtonMRClick(TObject *Sender)
{
	 LabelOp->Caption = FloatToStr(float(dMem));
}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonMemPlusClick(TObject *Sender)
{
	dMem= dMem + double(StrToFloat(LabelOp->Caption));
	LabelM->Caption = FloatToStr(float(dMem));

}
//---------------------------------------------------------------------------

void __fastcall TCalculator::ButtonMemMinusClick(TObject *Sender)
{
	dMem = dMem - double(StrToFloat(LabelOp->Caption));
	LabelM->Caption = FloatToStr(float(dMem));
}
//---------------------------------------------------------------------------

[pu4koff]

1. DecimalSeparator я бы не менял и оставил его значение на совести системы
2. Не уверен, что первый символ в билдеровой строке имеет индекс 0. Как бы не единица по наследству от делфей...
Как-то так, если я еще билдер не забыл за 3 года

void __fastcall TCalculator::ButtonDotClick(TObject *Sender)
{
  if (LabelOp->Caption.Pos(DecimalSeparator)) // Разделитель уже вставлен
    return;

  LabelOp->Caption += DecimalSeparator; // Разделителя нет. Добавляем в конец
}

[Arcueid1691]

Спасибо) про Pos() я и забыла совсем. разделитель поменяла потому как в задании было указано. Еще раз спасибо)