[OmG killer]

Вообшем если постоянно умножать число на число (9*9*9*9) то в конце концов выйдет ошибка как ее поправить?

[NumLock]

использовать для хранения чисел не единицы байт (Double всего 8), а сотни, тысячи или даже десятки тысяч байт. в принципе никто не мешает для хранения одного числа использовать один HDD (SSD быстрее будет).

>>в справке что прочитал по этой ошибке?

[Facepalm]

Я здесь! Я всегда прихожу, когда без меня никак.

[BBBCat]

Дружок, а где оценка за предыдушую тему? Я там кстати тебя предупреждал, что возникнет ошибка.

[OmG killer]

BBBCat ты мне конкретно помог!! я просто уже уходил и увидел ошибку вот и написал, а про ту кнопку как раз хотел сейчас посмотреть.

[OmG killer]

% работает очень даже хорошо=)))

[BBBCat]

Ясно. А с числом у тебя не проблема, а обычная ситуация. Ты не можешь в поллитровую бутылку налить литр сока. Тут то же самое. Я ж советовал проверять Overflow/Underflow. Вот оно и аукнулось. Ладно, я уже полторы суток за компом, да и день суматошный выпал. Я спатеньки, завтра помогу...

А, блин, у тебя ж завтра этот НОУ, который хау. Ладно, будем посмотреть за твою поллитровую бутылку

Вот тебе про бутылку, когда сок переливается:
Кнопка '='(тоже лучше скопировать только мои добавления):

Код:

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
try // добавил
if edit1.Text<>'' then b:=strtofloat (edit1.Text);
except // добавил
  edit1.Text:='-0'; // добавил
  b:=0; // добавил
  a:=0; // добавил
  c:=''; // добавил
  Exit; // добавил
end; // добавил
case c of
 '+':edit1.Text:=floattostr(a+b);
 '-':edit1.Text:=floattostr(a-b);
 '*': edit1.Text:=floattostr(a*b);
 '/':begin
 if b<>0 then
 edit1.Text:=floattostr(a/b) else
 form3.Show;
    end;
 '^': edit1.Text:=floattostr(Power(a,b));
 end;
end;

Решение далёко от изящества, но такую уж программу ты мне дал.А вообще, смысл происходящего ясен?