Перевод из строки в число с плавающей запятой

[nudist]

У меня на форме присутствует StringGrid в нем в последней ячейке в каждой строке присутствует цена товара в формате к примеру 585.00 руб.
Как из всех строк вытащить числа с плавающей запятой и поместить сумму этих чисел в Edit.

var
i: integer;
s,word : string;
begin
for i:=0 to StringGrid1.RowCount-1 do
begin
s:=StringGrid1.Cells[4,i];
word:=Copy(s,1,Pos(' ',s)-1);
edit1.Text:=word+' '+edit1.Text;
end;
end;

В данном коде он убирает слово руб. в конце но при переводе переменной word из строки в число с плавающей запятой ругается

[Аватар]

Не вижу где здесь строка в число преобразуется

[blackstrip]

С минимальными изменениями кода - так:

var
 i: integer;
 s,word : string;
 begin
 edit1.text='0';
 for i:=0 to StringGrid1.RowCount-1 do
 begin
 s:=StringGrid1.Cells[4,i];
 word:=Copy(s,1,Pos(' ',s)-1);
 edit1.Text:=FloatToStr(StrToFloat(word)+StrToFloat(edit1.Text));
 end;
 end;

Хотя это криворукий метод, лучше так:

var
 i: integer;
 s,word : string;
 summ:real;
 begin
 summ:=0;
 for i:=0 to StringGrid1.RowCount-1 do
 begin
 s:=StringGrid1.Cells[4,i];
 word:=Copy(s,1,Pos(' ',s)-1);
 summ:=summ+StrToFloat(word);
 end;
 edit1.Text:=FloatToStr(summ);
 end;

[Алексей_2012]

blackstrip, обогнали вы меня)) ну да ладно, вообще лучше делать цикл, чтоб в переменную s добавлялись данные из ячейки, в цикле пока не символ, кроме .,0..9, если встречается точка по середине числа, то заменить на запятую. Если надо-напишу, если нет, то вот результат, считает по всей таблице.

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
  s: string;
  word,price:real;
begin
  price:=0;
  s:='';
  with StringGrid1 do
  for j:=0 to colcount-1 do
  for i := 0 to RowCount - 1 do
  begin
    s:= trim(Cells[j,i]);
    if s='' then Continue;
    word:=StrToFloat(Copy(s,1,Pos(' ',s)-1));
        price:=price+word;
  end;
  Edit1.Text:=FormatFloat('0.00',price)+' руб.';
end;

<= Весы слева))