Сложение с приведением типов

[artemavd]

Хоть некоторые и пишут мне, что коряво вопросы задаю, но щас думаю я вопрос правильно задам и точно. Вопрос: Как в StringGrid-е сложить ячейки, которые получают значения из Label-ов, которые в свою очередь получают свои значения real? Как допустим сложить четыре ячейки со значением 3,5 четыре раза и потом разделить эту сумму на четыре? и Чтобы ответ был равен 3,5.

[Квэнди]

strtofloat + F1
trystrtofloat + F1
strtofloatdef +F1

[AlDelta]

Oбратиться к ячейке StringGrid'a:

StringGrid1.Cells[i,j]

StrToFloat - преобразует числовую строку в значение с плавающей запятой

[artemavd]

Сообщение от Квэнди

strtofloat + F1
trystrtofloat + F1
strtofloatdef +F1

Покажите примеры пожалуйста по двум последним функциям?)

[artemavd]

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

Oбратиться к ячейке StringGrid'a:

StringGrid1.Cells[i,j]

StrToFloat - преобразует числовую строку в значение с плавающей запятой

Можете поподробнее описать свой код?)

[Roof]

2 artemavd - посмотри мой исходник. Думаю, что на твой вопрос ответил. Но только зачем тебе из real в Label, потом из Label в StringGrid, потом в real и вычислять, потом соответственно отображать результат где-то. Если у тебя уже есть значения real в программе - то их и складывай! А в Label и StringGrid заноси просто, если нужно показать их пользователю. Вобщем смотри.

[artemavd]

Спасибо, Roof!)) Посмотрю))

[artemavd]

Знаешь, Roof, я посмотрел твой исходник) Неплохо сделано и очень просто. Если бы мне надо было вывести ответ в Label, а не в StringGrid, то я думаю, что я бы смог это сделать. Но у меня то надо ответ вывести в таблице!). Скажите мне почему программа считает только для восьми первых человек?) Если меньше восьми, то прога выводит ошибку: " ' ' is not valid integer value". Скажите мне, что значит эта ошибка? А если больше восьми, то такую ошибку: " '3,5' is not a valid integer value". Может надо нули поставить туда где нет данных? Вот код, который делает это для первых четырех колонок:

 
if Form1.Label7.Caption=' ' then SG3.Cells[2,1]:='0'
else SG3.Cells[2,1]:=Form1.Label7.Caption;

а мне надо вот такой код сделать чтобы он работал как приведенный выше:

summ:=(StrToFloat(SG3.Cells[2,1])+StrToFloat(SG3.Cells[8,1])+
StrToFloat(SG3.Cells[14,1])+StrToFloat(SG3.Cells[20,1]))/4;
SG3.Cells[26,1]:=FloatToStr(summ,ffFixed,1,1);

Помогите правильно написать условие!)

[artemavd]

var
  f1,k1,a1,b1,c1,d1: real;
begin
a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit2.Text);
c1:=StrToFloat(Edit3.Text);
d1:=StrToFloat(Edit4.Text);
  k1:=(a1+b1+c1+d1);
      f1:=(2* a1+3* b1+4* c1+5* d1)/k1;
       label1.Caption:=FloatToStrF(f1,ffFixed,1,1);

Как мне сделать, чтобы если значения a1=1, b1=1, c1=1, d1=1, то в Label выводлися бы ответ не «3,5», а ответ был бы равен «3.5»?

[Квэнди]

stringreplace + F1