StringGrid сумма значений

[quit]

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

А такой вопрос... Можно ли определенному столбцу задать определенный тип данных. Вот, к примеру, столбцу с количеством задать тип данных Integer?

нет, нельзя

PS
Прочтите название компонента

[monushka]

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

нет, нельзя

PS
Прочтите название компонента

Жаль... Т.е. выходит нужно как-то контроллировать, чтобы пользователь вместо целого количества не ввел какие-то буквы...

[quit]

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

Жаль... Т.е. выходит нужно как-то контроллировать, чтобы пользователь вместо целого количества не ввел какие-то буквы...

Да TryStrToInt будет вам в помощь

[monushka]

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

Да TryStrToInt будет вам в помощь

Ооо, шо це? Впервые вижу! С чем его едят? Пошла искать...

[quit]

Конечно понимаю, что уже выходит за рамки темы, но отпишусь здесь

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  if TryStrToInt(Edit1.Text,i) then
    ShowMessage(IntToStr(i) + ' - Целое!')
  else
    ShowMessage('Это ' + Edit1.Text + ' стопудово не целое :)');
end;

[monushka]

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

Конечно понимаю, что уже выходит за рамки темы, но отпишусь здесь

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  if TryStrToInt(Edit1.Text,i) then
    ShowMessage(IntToStr(i) + ' - Целое!')
  else
    ShowMessage('Это ' + Edit1.Text + ' стопудово не целое :)');
end;

Я прошу прощения. Вот нашла в других темах тоже подобное описание данной процедуры... Но что такое i?

[quit]

просто выходной параметр типа i:=StrToInt(Edit1.Text)

[monushka]

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

просто выходной параметр типа i:=StrToInt(Edit1.Text)

Что-то я не понимаю... Вот мой код:

procedure TEquipForm.Button3Click(Sender: TObject);
var itogo: real; i: integer;
begin
itogo:=0;
With SG1 do begin
 for i:=1 to RowCount-1 do
  itogo:=StrToFloatDEF(cells[5,i],0)*StrToFloatDEF(cells[7,i],0)+itogo;
 end;
Edit1.Text:=FloatToStr(itogo);
end;

Здесь подсчитывается стоимость всех товаров. Мне нужно проверять на целое 7-й столбец и на real 5й толбец. Получается, что itogo будет выходным параметром для TryStrToFloat или как?

var itogo: real; i,k: integer;
begin
itogo:=0;
With SG1 do begin
if TryStrToInt(SG1.Cells[7,i],k) and TryStrToFloat(SG1.Cells[5,i],itogo)then
begin
 for i:=1 to RowCount-1 do
  itogo:=StrToFloatDEF(cells[5,i],0)*StrToFloatDEF(cells[7,i],0)+itogo;
 end
 else ShowMessage('Введено неверное значение!');
Edit1.Text:=FloatToStr(itogo);
end;

Это правильно? Ну, это неправильно, канеша. Ошибку выдает: "There is no overloaded version of 'TryStrToFloat' that can be called with this arguments".

[quit]

так наверно будет правильно

var itogo: real; i,f,k: integer;
  begin
  itogo:=0;
  With SG1 do 
  begin
    for i:=1 to RowCount-1 do
      if TryStrToInt(SG1.Cells[7,i],k) and TryStrToFloat(SG1.Cells[5,i],f)then
        itogo:=k*f+itogo
      else ShowMessage('Введено неверное значение!');
  Edit1.Text:=FloatToStr(itogo);
end;

[monushka]

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

так наверно будет правильно

Ошибка все та же в том же месте...