Компонент stringgrid

[kotopezzz]

Ребят есть текст програмки:

begin
d:=(StrToFloat
(StringGrid1.Cells [2,j]) *
StrToFloat(StringGrid1.Cells [1,j]));
s := s + d;
end;
edit1.text:=Floattostr(s);
end;

Можно ли сделать так чтобы програмка присваивала значения ноль тем ячейкам которые я не заполняю. Заранее благодарен!!!!!

[DIgorevich]

Можешь сделать проход по всем ячейкам, и если значение ='' then этой ячейке:='0';

[kotopezzz]

ммм..а попроще никак? есть какая-нибудь функция в Делфи которая присваивает значение по умолчанию.....допустим у меня 100 столбцов..каждой же не будешь присваивать)))) Заранее спасибо!!)

[DIgorevich]

проход даже по 1000 столбцам и 1000 строкам не займет много времени. другого пути я не вижу, извиняй

[kotopezzz]

Прости ...а не можешь приблизительно написать как это выглядит..я не совсем врубаюсь..прописывать для каждого столбца или прям для всех тысячи ячеек каждого столбца?)))

[DIgorevich]

Var
  i,x:integer;
begin
  for i:=1 to stringGrid1.ColCount-1 do
    begin
       for x:=1 to to stringGrid1.RowCount-1 do
         Begin
            if stringgrid1.cells[x,i]='' then
               stringgrid1.cells[x,i]:='0';
         end;
    end;
end;

Как-то так, не проверял.

[kotopezzz]

Ого спасибищее дружище...как отблагодарить?

Вот так все заработало):
begin
S := 0;
for j := 1 to StringGrid1.RowCount - 1 do
begin
if stringgrid1.cells[1,j]='' then
stringgrid1.cells[1,j]:='0';
if stringgrid1.cells[2,j]='' then
stringgrid1.cells[2,j]:='0';
d:=(StrToFloat
(StringGrid1.Cells [2,j]) *
StrToFloat(StringGrid1.Cells [1,j]));
s := s + d;
end;
edit1.text:=Floattostr(s);
end;