Очистка конкретной ячейки StringGrid./Delphi/

[DSBM]

На форме располагаются: два компонента ListBox, таблица StringGrid размером 4х6, кнопка SpeedButton, две кнопки Button и кнопка Close. На одной из кнопок Button надпись «Очистка», на другой – «Занесение». Над одним из компонентов ListBox надпись «Строки», над другим – «Столбцы». С помощью первого выбирается строка таблицы, другим - столбец. При нажатии кнопки “Занесение” в соответствующую ячейку заносится произведение или сумма номеров строки и столбца. Вид операции определяется состоянием кнопки SpeedButton. Кнопка «Очистка» очищает данную ячейку. Кнопка Close заканчивает программу.

Как очистить конкретную ячейку?

procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=0 to StringGrid1.RowCount-1 do
StringGrid1.Rows[i].Clear;
ListBox1.Items.Clear;
ListBox1.Items.Add(IntToStr(Random(4)+1));
ListBox2.Items.Clear;
ListBox2.Items.Add(IntToStr(Random(6)+1));

if SpeedButton1.Down then begin
StringGrid1.Cells[StrToInt(listbox1.Items.Strings[listbox1.Count-1])-1,StrToInt(listbox2.Items.Strings[listbox2.Count-1])-1]:=
IntToStr(StrToInt(listbox1.Items.Strings[listbox1.Count-1])+StrToInt(listbox2.Items.Strings[listbox2.Count-1]));
end else begin
StringGrid1.Cells[StrToInt(listbox1.Items.Strings[listbox1.Count-1])-1,StrToInt(listbox2.Items.Strings[listbox2.Count-1])-1]:=
IntToStr(StrToInt(listbox1.Items.Strings[listbox1.Count-1])*StrToInt(listbox2.Items.Strings[listbox2.Count-1]));
 end;
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 SpeedButton1.GroupIndex:=1;
 SpeedButton1.AllowAllUp:=True;
end;


end.

[Serge_Bliznykov]

во-первых, у Вас же была аналогичная тема (этот код точно вижу не в первый раз!!)
зачем ещё одну создавать?

во-вторых, если я не ошибаюсь, то ваш код вполне можно заменить на такой:

procedure TForm1.Button1Click(Sender: TObject);
var sRez : string;
begin
For i:=0 to StringGrid1.RowCount-1 do
   StringGrid1.Rows[i].Clear;

ListBox1.Items.Clear;
ListBox1.Items.Add(IntToStr(Random(4)+1));
ListBox2.Items.Clear;
ListBox2.Items.Add(IntToStr(Random(6)+1));


if SpeedButton1.Down then 
  sRez := IntToStr(StrToInt(listbox1.Items.Strings[0])+StrToInt(listbox2.Items.Strings[0]))
else 
  sRez := IntToStr(StrToInt(listbox1.Items.Strings[0])*StrToInt(listbox2.Items.Strings[0]));

  StringGrid1.Cells[StrToInt(listbox1.Items.Strings[0])-1,StrToInt(listbox2.Items.Strings[0])-1] := sRez;

end;

в третьих, если вы хотите очистить одну ячейку, то надо написать так:

  StringGrid1.Cells[НомерСтолбца,НомерСтроки] := '';

если хотите очистить ячейку, у которой номер строки и столбца заданы вашими случайными числами в ListBox1 / LisBox2, то можно написать:

StringGrid1.Cells[StrToInt(listbox1.Items.Strings[0])-1,StrToInt(listbox2.Items.Strings[0])-1] := '';

[DSBM]

Благодарю.

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

во-первых, у Вас же была аналогичная тема (этот код точно вижу не в первый раз!!)
зачем ещё одну создавать?

Так вроде в правилах форума один вопрос - одна тема. Да и правила хорошего тона поддерживают такое отношение.)

[Serge_Bliznykov]

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

Благодарю.

Пожалуйста.



Данную тему закрываем?