число непустых строк в StringGrid-e

[artemavd]

Задаю взможно глупый вопрос . Но, че т переклинило. Как в label вывести число непустых строк в StringGrid-e? Чтобы например показывалось: "число непустых строк равно 5" в том случае, если в столбце действитель из 25 заполнено только 5.

[KORN]

берешь 2 цикла, один для проверки столбцов, 2й для проверки строк

далее проверяешь cells[i,j]<>'' и увеличиваешь переменную в которой указываешь сколько непустых ячеек

[artemavd]

Так (писал прямо на форуме, не проверяя)?:

var
 i,j,k: integer;
begin
 k:=0;
 for i:=1 to 25 do
 for j:=1 to 3 do
   begin
     if SG10.Cells[i,j] <> ' '  then
       begin
         k:=k + 1; //не знаю как прально условие написать 
         Label20.Caption:=FloatToStr(k);
       end;
   end;
end;

[KORN]

только можешь дописать в цикл RowCount-1 и ColCount-1 на случай если изменится число строи и столбцов

и вместо k:=k + 1; пиши inc(k);

[artemavd]

Наверно вот так?:

var
 i,j,k: integer;
begin
 k:=0;
 for i:=1 to SG10.ColCount - 1 do
 for j:=1 to SG10.RowCount - 1 do
   begin
     if SG10.Cells[i,j] <> ' '  then
       begin
         Inc(k);  
         Label20.Caption:=FloatToStr(k);
       end;
   end;
end;

Если так, то поздравь меня . Почти сам догадался)))

[KORN]

тут нужно не FloatToStr, а inttostr т.к. ты используешь тип integer

молодец то сам, побольше бы таких