Как сделать разделительный символ

[Dima-91]

Как сделать разделитель чисел (запятая или точка), что бы было видно при решении.

//---------------------------------------------------------------------------

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

#include "conv.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char DecimalSeparator = "," || "." ; // вот тут задается глобальный знак разделителя?
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if ((Key >= '0') && (Key <= '9'))
return;
if (Key == DecimalSeparator)
{
if ((Edit1->Text).Pos(DecimalSeparator) != 0)
Key = 0;
return;
}
if (Key == VK_BACK)
	return;
if (Key == VK_RETURN)
 {
	Edit2->SetFocus();
	return;
}
 Key = 0 ;
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, System::WideChar &Key)
{
  if ((Key >= '0') && (Key <= '9'))
return;
if (Key == DecimalSeparator)
{
if ((Edit2->Text).Pos(DecimalSeparator) != 0)
Key = 0;
return;
}
if (Key == VK_BACK)
	return;
if (Key == VK_RETURN)
 {
	Button1->SetFocus();
	return;
}
 Key = 0 ;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float usd,k,rub;
if (((Edit1->Text).Length() == 0) ||
			 ((Edit2->Text).Length() == 0))
{
	MessageDlg( "Надо ввсети цену и курс",
mtInformation, TMsgDlgButtons() << mbOK, 0);
	if ((Edit1->Text).Length() == 0)
	Edit1->SetFocus();
	else
	Edit2->SetFocus();
	return;
}
usd = StrToFloat(Edit1->Text);
k = StrToFloat(Edit2->Text);
rub = usd * k;
Label4->Caption = FloatToStrF(usd,ffGeneral,7,2) +
		"$ = "+FloatToStrF(rub,ffGeneral,7,2) + " руб." ;

}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------

[Serge_Bliznykov]

Dima-91, поясните, что Вы хотите добиться - чтобы можно было при вводе вещественных чисел в качестве десятичной точки вводить хоть запятую, хоть точку?
или зафиксировать в качестве разделителя только один из этих символов?


имхо, это:

char DecimalSeparator = "," || "." ; // вот тут задается глобальный знак разделителя?

бессмыслица.
Переменная DecimalSeparator задаёт ОДИН символ, который выступает в качестве десятичной точки в рамках текущей программы. Никаких "ИЛИ" тут нет и быть не может.
Организовывайте такую логику самостоятельно, кодом, путём замены всех допустимых знаков на DecimalSeparator (смотрите, например, какой-нибудь ReplaceString() )

[Stilet]

Label4->Caption = format("%m$ = %m  руб.",{usd,rub}) ;

Не?

[JUDAS]

вместо

usd = StrToFloat(Edit1->Text);
k = StrToFloat(Edit2->Text);

заменить на

#include strutils.h

if (DecimalSeparator == '.') 
{
  usd = StrToFloat(AnsiReplaceText(Edit1->Text,",","."));
  k = StrToFloat(AnsiReplaceText(Edit2->Text,",","."));
}
else
{
  usd = StrToFloat(AnsiReplaceText(Edit1->Text,".",","));
  k = StrToFloat(AnsiReplaceText(Edit2->Text,".",","));
}

[Dima-91]

1) Нужно ли задавать глобальную DecimalSeparator ? (значение которой точка или запятая )
2) В Edit1 вводятся видимые числа 0-9, а запятая(точка) не видима или вообще отсутствует. Думаю, как сделать ее видимой.
3) Примерно хочу сделать вид:

Edit1 : 100
 Edit2 : 12,321
 Label4: 1232,1

4) Возможно ли задать запятую глобально в переменной DecimalSeparator?

[Аватар]

В OnKeyPress меняй точку и запятую на значение из DecimalSeparator. Пользователь может вводить точку или запятую, отображаться будет только то, что в DecimalSeparator

[Dima-91]

Всем спасибо, ответы помогли.
Вопрос - Для точки: возможно ее приравнять к запятой, что бы можно было использовать и то и другое? Подкинули идею так как это сделать)

//---------------------------------------------------------------------------

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

#include "conv.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char DecimalSeparator = ',' ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if ((Key >= '0') && (Key <= '9'))
return;
if (Key == DecimalSeparator)
{
if ((Edit1->Text).Pos(DecimalSeparator) != 0)
Key = 0;
return;
}
if (Key == VK_BACK)
	return;
if (Key == VK_RETURN)
 {
	Edit2->SetFocus();
	return;
}
 Key = 0 ;
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, System::WideChar &Key)
{
  if ((Key >= '0') && (Key <= '9'))
return;
if (Key == DecimalSeparator)
{
if ((Edit2->Text).Pos(DecimalSeparator) != 0)
Key = 0;
return;
}
if (Key == VK_BACK)
	return;
if (Key == VK_RETURN)
 {
	Button1->SetFocus();
	return;
}
 Key = 0 ;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float usd,k,rub;
if (((Edit1->Text).Length() == 0) ||
			 ((Edit2->Text).Length() == 0))
{
	MessageDlg( "Надо ввсети цену и курс",
mtInformation, TMsgDlgButtons() << mbOK, 0);
	if ((Edit1->Text).Length() == 0)
	Edit1->SetFocus();
	else
	Edit2->SetFocus();
	return;
}
usd = StrToFloat(Edit1->Text);
k = StrToFloat(Edit2->Text);
rub = usd * k;
Label4->Caption = FloatToStrF(usd,ffGeneral,7,2) +
		"$ = "+FloatToStrF(rub,ffGeneral,7,2) + " руб." ;

}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------

[Аватар]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in [',','.'] then Key:=DecimalSeparator;
end;

Наверняка в билдер сях не сильно по другому

[min@y™]

Зачем тебе понадобилось проверять значение по мере ввода? Почему это вдруг стало настолько необходимо, что не лень городить тяжёлый кривой говнокод, вместо того, чтобы спрокойно проверить [и скорректировать] весь введённый текст после ввода?

з.ы. И ctrl+v ещё никто не отменял, вместе с контекстным меню.

[JUDAS]

Сообщение от Аватар

В OnKeyPress меняй точку и запятую на значение из DecimalSeparator. Пользователь может вводить точку или запятую, отображаться будет только то, что в DecimalSeparator

или... то , что посчитает нужным.

а вот тут

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in [',','.'] then Key:=DecimalSeparator;
end;

нужно писать вот так (автор Сишник)

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(Key!='-' || Key<'0' || Key>'9')
    Key = DecimalSeparator;
}