Показать сообщение отдельно
  #5  
Старый 06.01.2010, 18:27
padavanLS1000 padavanLS1000 вне форума
Прохожий
 
Регистрация: 03.01.2010
Сообщения: 5
Репутация: 10
По умолчанию

Код:
procedure TForm1.StringGrid1Click(Sender: TObject);
var
a : real;
b : real;
C : real;
begin
StringGrid1.Cells[0,0]:='Действие';
StringGrid1.Cells[0,1]:='A';
StringGrid1.Cells[0,2]:='B';
StringGrid1.Cells[0,3]:='A+B=';
StringGrid1.Cells[1,0]:='Введите число';

a:= StrTOFloat(StringGrid1.Cells[1,2]);
b:= StrTOFloat(StringGrid1.Cells[1,3]);
c:=A+b;
StringGrid1.Cells[1,4]:=FloatTOStr(c);
Хочу слажить два числа вчем ашибка комп пишит 'is not valing point value'. ПОМОГИТЕ:
Ответить с цитированием