VPF::on key down error - Форум программистов

muratboy31

Дата 13.2.2010, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

whenever i try to type anything in dbedit4 i get error... i am trying to get percentage of a price...

Код


procedure TForm1.DBEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
percent:extended;
topltal:string;
begin
percent:=strtofloat(dbedit4.Text);
total:=floattostr(percent*2);
DBEdit5.text:=total;
end;

thanks for helps

Это сообщение отредактировал(а) muratboy31 - 13.2.2010, 20:27

Данкинг

Дата 13.2.2010, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

topltal ain't equal to total. smile

Furthermore, maybe you need check the percentage at pressing <ENTER>? Thus, you should insert this line just after "begin:

Код


if key<>13 then exit;

Это сообщение отредактировал(а) Данкинг - 13.2.2010, 20:51

--------------------

There's nothing left but silent epitaphs.

muratboy31

Дата 13.2.2010, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

can i not check the percentage with any numkey ??? with ever numkey down i want to c the percentage...

Данкинг

Дата 13.2.2010, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(muratboy31 @ 13.2.2010, 23:03

)

can i not check the percentage with any numkey ???

Then what's the error you've got?

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »