Нули

[artemavd]

Подскажите пожалуйста как мне сделать так, чтобы при запуске программы в StringGrid-е стояли нули во всех клетках, а потом я мог по нажатию на кнопку удалить эти нули? Спасибо)

[Stilet]

for i:=0 to StringGrid.Colcount-1 do 
 for k:=0 to Stringgrid.RowCount-1 do StringGrid.cells[i,k]:='0';

[artemavd]

Хорошо) А как удалить потом нули из тех клеток, которые не используются?)

[SERG1980]

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

Хорошо) А как удалить потом нули из тех клеток, которые не используются?)

смотря с помошью какой кнопки будете удалять. Если с помощью мыши то в событии OnSelectCell пишем

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 StringGrid1.Cells[ACol,ARow]:='';
end;

[Stilet]

то в событии OnSelectCell пишем

Хорошо пошутил )))

А как удалить потом нули из тех клеток, которые не используются?)

А какие клетки используются?
Вообще ты нормально задачу то поставь...

[artemavd]

Хорошо) На моей форме есть таблица StringGrid. В ней 26 строк (в 26-ую выводится итоговый результат), и 31 столбец. В некоторых ячейках столбцов при загрузке формы стоят сразу нули. Для каждой строчки у меня ведется отдельное вычисление. Мне нужно сделать вот что. Мне надо, чтобы если у меня допустим производится расчет для 20-ти человек, то у меня результаты вычислений заносятся в специальные ячейки. Это есть. Но когда я нажимаю кнопки получки данных например для первого человека, то у меня все нули в этих столбцах стираются. А мне надо, чтобы в тех ячейках, где не вносятся данные, у меня нули оставались и не исчезали. У меня просто для каждого человека для четырех критериев (это четыре разных столбца) данные вносятся по нажатию на одну единственную кнопку, а всего 25 человек. Вот мне и надо сделать, чтобы при нажатии на кнопку у меня данные вносились в те ячейки напротив фамилии которого имеются данные, а в тех ячейках, в которых нет данных оставались нули, а не исчезали даже когда я вношу данные для одного человека. Подскажите пожалуйста как это можно сделать?)

[puporev]

Поскольку ячейки Вы заполняете по нажатию кнопки, значит есть критерий по которому это происходит. Значит нужно написать
if критерий then заполнять
else оставить ноли

[artemavd]

Когда я нажимаю на кнопку, то у меня заполнение ячеек происходит так:
#
SG3.cells[2,1]:=Form1.Label7.Caption;
SG3.cells[3,1]:=Form1.Label207.Caption;
SG3.cells[4,1]:=Form1.Label121.Caption;
SG3.cells[5,1]:=Form1.Label92.Caption;
Это вносятся для одного человека данные в четыре ячейки по четырем подряд идущим критериям. И так у меня их всего 25 человек. Из этих 25-ти допустим заполняется только 20, а в остальных должны стоять нули по всем четырем критериям идущих друг за другом. Так вот я и спрашиваю как мне сделать так чтобы это выполнялось: 20 заполенено-остальные нули). А то по нажатию кнопки, у меня все нули убираются и вносятся данные для первогог допустим человека, а мне надо, чтобы данные вносились, а в где нет данных оставались нули. Подскажите?)

[puporev]

Не видев кода трудно угадать, что Вам нужно. Предположим все данные заносятся из Лабелей, то можно написать
if Form1.Label7.caption='' then SG3.cells[2,1]:='0'
else SG3.cells[2,1]:=Form1.Label7.Caption;
Это как пример.

[artemavd]

Виноват, что не выложил код и спрашивал у вас совета вслепую). Вот код, который по нажатию на кнопку производит расчет по пяти формулам:

#
 var
 k:real; 
 a1:real;
 b1:real; 
 c1:real; 
 d1:real; 
 k1:real;
 f1:real;
 g1:real;
 h1:real;
 e1:real;
 m1:real;
 n1:real;
 l:real;
 g:real;
 h:real;
 i:real;
 j:real;
 u1:real;
 value:real;
 a511:real; 
 b511:real; 
 c511:real; 
 d511:real; 
 k511:real;
 f511:real;
begin
  a1 := StrToFloat(Edit1.Text);
  b1 := StrToFloat(Edit2.Text);
  c1 := StrToFloat(Edit3.Text);
  d1 := StrToFloat(Edit4.Text);
     k := (a1 +  b1 +  c1 +  d1);
    label9.Caption:= ' ' + FloatToStr(k);

  a1 := StrToFloat(Edit1.Text);
  b1 := StrToFloat(Edit2.Text);
  c1 := StrToFloat(Edit3.Text);
  d1 := StrToFloat(Edit4.Text);
    k1 := (a1 +  b1 +  c1 +  d1); //количество оценок
    if k1<>0 then f1 := (2 * a1 + 3 * b1 + 4 * c1 + 5 * d1)/k1;  //расчет
      Label7.Caption:='' + FloatToStrF(f1,ffGeneral,0,2);

   g1:=StrToFloat(Edit3.Text);  //4
   h1:=StrToFloat(Edit4.Text);  //5
   m1:=StrToFloat(Edit1.Text);  //2
   n1:=StrToFloat(Edit2.Text);  //3
   k1:=(m1 + n1 + g1 + h1);
   if k1<>0 then e1:=((g1+h1)*100)/k1;
    label207.Caption:=' ' + FloatToStr(Round(e1));

   a1:=StrToFloat(Edit1.Text);
   b1:=StrToFloat(Edit2.Text);
   c1:=StrToFloat(Edit3.Text);
   d1:=StrToFloat(Edit4.Text);
   k:= a1 + b1 + c1 + d1; //кол-во всех оценок
   if k<>0 then l:=100 - ((StrToFloat(Edit1.Text))*100)/k;
     label121.Caption:=' ' + FloatToStr(Round(l));

   a1 := StrToFloat(Edit1.Text);
   b1 := StrToFloat(Edit2.Text);
   c1 := StrToFloat(Edit3.Text);
   d1 := StrToFloat(Edit4.Text);
   k1 := (a1 + b1 + c1 + d1);
   if k1<>0 then u1:= ((2*a1 +  3*b1 +  4*c1 + 5*d1)*20)/k1;
     label92.Caption:= ' ' + FloatToStr(Round(u1));

  a511 := StrToFloat(Edit1.Text);
  b511 := StrToFloat(Edit2.Text);
  c511 := StrToFloat(Edit3.Text);
  d511 := StrToFloat(Edit4.Text);
    k511 := (a511 +  b511 +  c511 +  d511); //количество оценок
    if k511<>0 then f511 := (2 * a511 + 3 * b511 + 4 * c511 + 5 * d511)/k511;  //расчет
      Label147.Caption:='' + FloatToStr(Round(f511));
end;
#
А это так StringGrid получает значения для, например, первого учащегося по четырем критериям:
#
{1}
    SG3.Cells[2,1]:=Form1.Label7.Caption;
    SG3.Cells[3,1]:=Form1.Label207.Caption;
    SG3.Cells[4,1]:=Form1.Label121.Caption;
    SG3.Cells[5,1]:=Form1.Label92.Caption;
    SG3.Cells[6,1]:=Form1.Label147.Caption;
#

Я сделал, чтобы у меня на форме где StringGrid, в событии формы OnCreate получает по умолчанию нули. Но когда я нажимаю на кнопку, код которой приведен в самом начале, то у меня данные получаются (что хорошо), но все нули из этих пяти столбцов удаляются, а надо, чтобы они оставались. Кто что может сейчас предложить?))

moderator: учимся правильно оформлять код