Очистка сразу нескольких StringGrid

[Artamos]

Как очистить нулевую колонку сразу в нескольких таблицах StringGrid? Есть вариант прописать, как указано ниже, но таблиц много, поэтому хотелось бы оптимизировать код программы. Возможно каким-то образом это реализовать без перечисления всех табблик, к примеру с помощью цикла или ещё как-нибудь?
StringGrid1.Cols[i].Clear;
StringGrid2.Cols[i].Clear;
StringGrid3.Cols[i].Clear;
StringGrid4.Cols[i].Clear;
StringGrid5.Cols[i].Clear;
StringGrid6.Cols[i].Clear;
.....

[Tenebor]

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

Как очистить нулевую колонку сразу в нескольких таблицах StringGrid? Есть вариант прописать, как указано ниже, но таблиц много, поэтому хотелось бы оптимизировать код программы. Возможно каким-то образом это реализовать без перечисления всех табблик, к примеру с помощью цикла или ещё как-нибудь?
StringGrid1.Cols[i].Clear;
StringGrid2.Cols[i].Clear;
StringGrid3.Cols[i].Clear;
StringGrid4.Cols[i].Clear;
StringGrid5.Cols[i].Clear;
StringGrid6.Cols[i].Clear;
.....

Я бы сделал вот так :

for i:=0 to a do
for j:=0 to a do begin
if Form2.StringGrid1.cells[i,j]<>'' then
form2.stringGrid1.cells[i,j]:='';

if Form2.StringGrid2.cells[i,j]<>'' then
form2.stringGrid2.cells[i,j]:='';

................................... ......................
................................... ....................
end;

Это очистит все StringGrid за 1 раз. Может и плохой стиль, но работает

[Artamos]

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

Я бы сделал вот так :

for i:=0 to a do
for j:=0 to a do begin
if Form2.StringGrid1.cells[i,j]<>'' then
form2.stringGrid1.cells[i,j]:='';

if Form2.StringGrid2.cells[i,j]<>'' then
form2.stringGrid2.cells[i,j]:='';

................................... ......................
................................... ....................
end;

Это очистит все StringGrid за 1 раз. Может и плохой стиль, но работает

Если я правильно понял, то в вашем методе используется цикл полной очистки таблиц с перечислением условий для каждой отдельной таблицы, а у меня таблиц много, но состоят они всего лишь из 1 столбца и нескольких строк каждая, поэтому мой вариант будет гораздо проще
Мне узнать как в цикл загнать саму форму stringgrid1-20...

[Tenebor]

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

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

да

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

а у меня таблиц много, но состоят они всего лишь из 1 столбца и нескольких строк каждая, поэтому мой вариант будет гораздо проще

Проще не всегда значит эфективней, мой вариант более так сказать "шире" в использовании

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

Мне узнать как в цикл загнать саму форму stringgrid1-20...

Что Вы имеете в виду ?
Все StringGrid имеют одинаковый размер ?

[Nemez]

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

Как очистить нулевую колонку сразу в нескольких таблицах StringGrid? Есть вариант прописать, как указано ниже, но таблиц много, поэтому хотелось бы оптимизировать код программы. Возможно каким-то образом это реализовать без перечисления всех табблик, к примеру с помощью цикла или ещё как-нибудь?
StringGrid1.Cols[i].Clear;
StringGrid2.Cols[i].Clear;
StringGrid3.Cols[i].Clear;
StringGrid4.Cols[i].Clear;
StringGrid5.Cols[i].Clear;
StringGrid6.Cols[i].Clear;
.....

Вот както так

n:=6;//колич. стрингридоф
for i:=1 to n do
(FindComponent('StringGrid' + IntToStr(i)) as TStringGrid).Cols[0].Clear;

[Tenebor]

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

Как очистить нулевую колонку сразу в нескольких таблицах StringGrid?

Мда

for i:=0 to a do
for j:=0 to a do
//if (i=0) or (j=0) then --и колонки и сроки нулевые очищает
if i=0 then // только нулевую колонку
begin
if Form2.StringGrid1.cells[i,j]<>'' then
form2.stringGrid1.cells[i,j]:='';
if Form2.StringGrid2.cells[i,j]<>'' then
form2.stringGrid2.cells[i,j]:='';
................................... ................
................................... ..............
end
else break;

это когда все Stringgrid одного размера

[xrob]

procedure ClearTable(var table:TStringGrid);
begin    
// очищаем нулевую ячейку в каждой строке таблицы; 
for i:=0 to Table.Rows-1 do table.cells[0,i]:='';
end;

а потом где надо вызываем эту процедуру;

ClearTable(StringGrid1);

далее, что значит много таблиц?
как они появились?
если они создаются динамически, то я не знаю другого способа
как создавать новые таблицы в array of TStringGrid;

а если вы их все создавали вручную на этапе разработки то
тогда либо создать процедуру для очистки всех созданых таблиц,
в которой вызвать процедуру ClearTable для каждой таблицы,
вручную прописывая параметр процедуры:

procedure ClearAllTables;
begin 
ClearTable(StringGrid1); 
ClearTable(StringGrid2); 
ClearTable(StringGrid3); 
ClearTable(StringGrid4);
end;

либо при создании таблицы добавлять ее в array of TStringGrid,
а потом в цикле пробегаться по этому массиву:

Tables:array of TStringGrid;  

procedure ClearAllTables;
begin 
for i:=0 to Length(Tables)-1 do ClearTable(Tables[i]);
end;

добавление таблицы в массив:

Tables[0]:=TStringGrid.create; // динамическое создание; 
Tables[0]:=Table; // добавление таблицы Table в массив на этапе разработки.

p.s.
в описании процедур я не прописал раздел var,
надеюсь разберетесь что нужно сделать.

[evg_m]

for j:=0 to form1.controlcount-1 do
  if form1.controls[j] is TstringGrid then
  (form1.controls[j] as TstringGrid).cols(10.clear;

очистит ВСЕ таблицы (первые колонки) размещенные на форме (form1)

for j:=0 to panel1.controlcount-1 do
  if panel1.controls[j] is TstringGrid then
  (form1.controls[j] as TstringGrid).cols(10.clear;

очистит ВСЕ таблицы (первые колонки) размещенные на указанной панели (panel1)

есть еще components[] и componentcount