Ошибка при попытке умножить number на money "EConvertError with message 55,00p. is not a valid floating point value"

@chuvac · Регистрация: 15.01.2014

Студворк — интернет-сервис помощи студентам

Опытные программисты подскажите чайнику как это исправить?

@ArtProud · 15.01.2014, 17:05

Money - это в SQL Server тип данных такой?
Если честно с типом Money не работал.
И не знаю как он поддерживается теми компонентами Делфи кот. ты используешь.

Скорее всего что Делфи видит 55,00p. - как не число, а строку,
поэтому и умножить не получается у тебя.

Возможно попробовать в самом запросе к SQL Server привести к типу Real,
http://msdn.microsoft.com/ru-r... 79882.aspx
умножить тогда можно будет.

@chuvac · 15.01.2014, 17:19 **[ТС]**

у меня такая беда. Есть база данных со столбцами "дней" и "цена" (это на 1 форме), у дней тип number а у цена тип money и их умножить не получается!? Что делать не пойму, может подскажешь? Если что могу выслать свою корявую прогу!

@Gippi · 15.01.2014, 17:29

результат умножения куда идет?

@chuvac · 15.01.2014, 17:32 **[ТС]**

Результат идёт DBEdit3 и соответственно в столбец "счет".

@Gippi · 15.01.2014, 17:35

код можно?

@chuvac · 15.01.2014, 17:39 **[ТС]**

Это первая форма

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, Grids, DBGrids, DB, DBTables;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    Image1: TImage;
    N28: TMenuItem;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle:= bsSingle;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.DBGrid1.Visible:=True;
end;
 
procedure TForm1.N28Click(Sender: TObject);
begin
Form2.Show;
Form1.DBGrid1.Visible:=False;
end;
 
end.

Это вторая форма

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls;
 
type
  TForm2 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
 
form2.close;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
DecimalSeparator := '.';
Form2.BorderStyle:= bsSingle;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var a:real;
    b:real;
begin
a:=strtofloat(dbedit6.text);
b:=strtofloat(dbedit7.text);
dbedit10.Text:=floattostr(a*b);
end;
 
end.

@Gippi · 15.01.2014, 17:46

Сообщение от chuvac

Delphi

procedure TForm2.Button2Click(Sender: TObject);
var a:real;
b:real;
begin
a:=strtofloat(dbedit6.text);
b:=strtofloat(dbedit7.text);
dbedit10.Text:=floattostr(a*b);
end;

что за кошмар?

столбец "счет" в той же таблице?
не понимаю зачем куча dbedit'ов?
грид на форму через TTable в Field добавляйте два ваших исходных поля и создавайте третье поле Calculated.

в событии onCalcFields прописать

Delphi

1	table1.FieldByName('schet').Value:=table1.FieldByName('f_0').Value*table1.FieldByName('f_1').Value;

@chuvac · 15.01.2014, 18:08 **[ТС]**

ПКС-гр.3-11.rar
вот посмотри мою прогу может что и посоветуешь чайнику?

@chuvac · 15.01.2014, 18:12 **[ТС]**

В том то и дело что нужно высчитать счет за проживание при вводе кол-ва дней и цены за день проживания при вводе данных через dbedit'ы!

@Gippi · 15.01.2014, 19:06

окей, dbedit

в Field Editore создается поле, как описано выше, метод тот же на обработку CalcField
на dbedit10 в Field указать созданное поле Calc

@chuvac · 15.01.2014, 19:15 **[ТС]**

Спасибо Gippi за подсказку! Сегодня уже времени нет заниматься, завтра попробую. А если можно то по-подробнее можешь написать где, куда и какие процедуры или функции прописать! Не пойми не правильно, но я в делфи,в отличии от тебя, не волшебник, а только учусь!

@Gippi · 15.01.2014, 19:24

TTable
двойной щелчек по иконке, правый щелчек в поле, добавить все поля, создать поле Calculated(новое поле)
в событиях TTable найти onCalcField прописать там то, что было написано выше

найти на форме ваш dbedit10 в свойстве DataField указать созданное поле Calc

@chuvac · 16.01.2014, 09:18 **[ТС]**

Огромное спасибо за разъяснение!

Добавлено через 13 часов 46 минут
Спасибо Gippi ещё раз. Сделал как ты сказал и всё заработало! Респект тебе и уважуха! На этой оптимистической ноте тему можно считать закрытой.

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
		1
	Ошибка при попытке умножить number на money "EConvertError with message 55,00p. is not a valid floating point value" 15.01.2014, 15:57. Показов 1055. Ответов 13 Метки нет (Все метки) Опытные программисты подскажите чайнику как это исправить? 0

@ArtProud 36 / 36 / 7 Регистрация: 15.01.2013 Сообщений: 161
	15.01.2014, 17:05	2
	Money - это в SQL Server тип данных такой? Если честно с типом Money не работал. И не знаю как он поддерживается теми компонентами Делфи кот. ты используешь. Скорее всего что Делфи видит 55,00p. - как не число, а строку, поэтому и умножить не получается у тебя. Возможно попробовать в самом запросе к SQL Server привести к типу Real, http://msdn.microsoft.com/ru-r... 79882.aspx умножить тогда можно будет. 0

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
	15.01.2014, 17:19 [ТС]	3
	у меня такая беда. Есть база данных со столбцами "дней" и "цена" (это на 1 форме), у дней тип number а у цена тип money и их умножить не получается!? Что делать не пойму, может подскажешь? Если что могу выслать свою корявую прогу! 0

@Gippi 4 / 4 / 3 Регистрация: 02.09.2013 Сообщений: 21
	15.01.2014, 17:29	4
	результат умножения куда идет? 0

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
	15.01.2014, 17:32 [ТС]	5
	Результат идёт DBEdit3 и соответственно в столбец "счет". 0

@Gippi 4 / 4 / 3 Регистрация: 02.09.2013 Сообщений: 21
	15.01.2014, 17:35	6
	код можно? 0

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
	15.01.2014, 18:08 [ТС]	9
	ПКС-гр.3-11.rar вот посмотри мою прогу может что и посоветуешь чайнику? 0

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
	15.01.2014, 18:12 [ТС]	10
	В том то и дело что нужно высчитать счет за проживание при вводе кол-ва дней и цены за день проживания при вводе данных через dbedit'ы! 0

@Gippi 4 / 4 / 3 Регистрация: 02.09.2013 Сообщений: 21
	15.01.2014, 19:06	11
	окей, dbedit в Field Editore создается поле, как описано выше, метод тот же на обработку CalcField на dbedit10 в Field указать созданное поле Calc 0

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
	15.01.2014, 19:15 [ТС]	12
	Спасибо Gippi за подсказку! Сегодня уже времени нет заниматься, завтра попробую. А если можно то по-подробнее можешь написать где, куда и какие процедуры или функции прописать! Не пойми не правильно, но я в делфи,в отличии от тебя, не волшебник, а только учусь! 0

	16.01.2014, 09:18

Опции темы

@Gippi 4 / 4 / 3 Регистрация: 02.09.2013 Сообщений: 21
	15.01.2014, 19:24	13
	TTable двойной щелчек по иконке, правый щелчек в поле, добавить все поля, создать поле Calculated(новое поле) в событиях TTable найти onCalcField прописать там то, что было написано выше найти на форме ваш dbedit10 в свойстве DataField указать созданное поле Calc 1

@chuvac 0 / 0 / 0 Регистрация: 15.01.2014 Сообщений: 70
	16.01.2014, 09:18 [ТС]	14
	Огромное спасибо за разъяснение! Добавлено через 13 часов 46 минут Спасибо Gippi ещё раз. Сделал как ты сказал и всё заработало! Респект тебе и уважуха! На этой оптимистической ноте тему можно считать закрытой. 0