Developing.ru

Чёто я немного не понял вот у менят есть процедура для кнопки умножения:

везде меняешь

integer->real
strToInt->strToFloat
IntToStr->FloatToStr

Volk, ну ё-мое, ты же смышленый парень, а такое спрашиваешь. Тебе же уже говорили, типы, меняй типы переменных. С интежер на реал или флоат. Если будешь производить операции над дробными числами, то соответственно и хранить их надо в переменных соответствующего типа. И тогда будет не StrToInt, StrToFloat.

кстати для преобразования разных чисел в строку можно использовать функцию Format

Спасибо вам огромное! Я пробовал сам ещё не обращаясь на форум вместо Integer писать Real. Это то я знал нщё огого когда. Толко вот ошибку в строке IntToStr возникала ну я попробовал и RealToStr и ReToStr и всё равно ошибка! Вот я и обратился за помощью. А теперь мне всё понятно. СПАСИБО!
P.S. а вот про Format можно пожалуйсто по подробнее.

Каклькулятор сделал всё обалденно! только вот когда он производит действия с дробными числами он пишит мне числа типа 2,5399999999990000000 если применяю Round то округляет сильно жёстко и вместо того числа напишит просто "3" !!! Как мне установить в Round до скольки ему надо округлять? И с кнопками Sin и Cos тоже сильно жёстко округляет у меня на них стоит вот чё:
procedure TForm1.BitBtn4Click(Sender: TObject);
var
C:integer;
Co:integer;
begin
C:=StrToInt(Edit1.Text);
Co:=Round(Cos(C));
Edit1.Text:=IntToStr(Co);
end;
как мне сделать так чтоб округления вообще не было? Я пробовал просто удалять Round но всё равно какаято ошибка!!!
Помогите Пожалуйсто!

мне установить в Round до скольки ему надо округлять?

var
C:real;
Co:real;
begin
C:=StrToFloat(Edit1.Text);
Co:=Round(Cos(C)*1000)/1000;
Edit1.Text:=FloatToStr(Co);

вместо
C:real;
Co:real;
можно пользовать
C:extended;
Co:extended;

А подробнее про типы - real+F1 в делфи

Спасибо тебе YurikGL!!! А ты не могбы мне ещё подсказать вот что: допустим у меня есть Form1 и Form2, Form2 скрытая. И как мне её открыть при помощи на жатия на клаве кнопки "Y"??? С учётом того что у меня Delphi 3 иникаких Апликейшн Инвестов у меня нет.

Form1 и Form2, Form2 скрытая. И как мне её открыть при помощи на жатия на клаве кнопки "Y"???

В соответсвующем событии

Form2.Show;

Всмысле Form2.Show???? Мне ж надо не просто так а чтоб при помощи КНОПКИ на клавиатуре!!! Вот как знаеш типа горячие клавиши. Поподробнее чё надо делать куда чё писать и т.д.