VPF::Сумма чисел в ячейках StringGrid - Форум программистов

ABUTAEV

Дата 25.9.2010, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет

Здравствуйте Все! Подскажите если можно сделать что-то здесь вот Код

Код


procedure TT1Form.BitBtn1Click(Sender: TObject);
var
a:array[3..33] of real;
i:integer;
j:integer;
SumRab:real;
Rasts:real;
StoimRab:real;
 begin

  for i:=1 to T1Form.T1StringGrid.RowCount-2 do
  begin
    SumRab:=0;
 for j := 3 to T1Form.T1StringGrid.ColCount - 3 do
     begin
  if Length (T1Form.T1StringGrid.Cells[j,i])<>0 then
  a[j] := StrToFloat(T1Form.T1StringGrid.Cells[j,i]) else a[j] := 0;
  SumRab:=SumRab+a[j];
  Rasts:=StrToFloat(T1Form.T1StringGrid.Cells[2,i]);
  StoimRab:=SumRab*Rasts;
   T1Form.T1StringGrid.Cells[34,i]:=FloatToStr(SumRab);
   T1Form.T1StringGrid.Cells[35,i]:=FloatToStr(StoimRab);
end;
 end;
 end;

Если в ячейках цифры, то они складываются. Если ячейки пустые, то считается что там « 0». А можно сделать так, чтобы если введены буквы, то тоже считались = 0. Для того чтобы все эти цифры в ячейках сложить и буквы не мешали подсчету результата, или может по-другому, как-то можно все сделать?

Amphiluke

Дата 25.9.2010, 19:14 (ссылка)

(голосов:1)

Загрузка ...

☽

Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 6
Всего: 112

Для любого содержимого ячеек (в т.ч. для отсутствия содержимого) smile

Код


a[j] := StrToFloatDef(T1Form.T1StringGrid.Cells[j, i], 0);

ABUTAEV

Дата 25.9.2010, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет

Выводит ошибку [Error] T1Unit.pas(126): There is no overloaded version of 'StrToFloat' that can be called with these arguments

[Error] T1Unit.pas(126): Нет перегруженной версии 'StrToFloat, которая может быть названа этими аргументами.

Amphiluke

Дата 25.9.2010, 19:35 (ссылка)

(нет голосов)

Загрузка ...

☽

Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 6
Всего: 112

Я же вам предлагаю функцию StrToFloatDef вместо StrToFloat.

Добавлено через 1 минуту и 14 секунд
Посмотрите внимательнее на строчку кода, которую я привел выше.

ABUTAEV

Дата 25.9.2010, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 21.4.2010

Репутация: нет
Всего: нет

Простите меня, я был не внимателен. Все работает чотко, просто прелесть! Огромное спасибо! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »