Работа с компонентном Delphi 7 - TStringGrid

[МисУ]

Здравствуйте. Задача такая.- У меня есть форма <Form1>, на ней расположен компонент <StringGride> (таблицы 5/5-стандарт), <Edit1> и кнопка <Button1>. Как задать редактирование количества строк в таблице <StringGride> с помощью <Edit1> и кнопки <Button1> или без нее? Спасибо

[Aranea tela telam]

procedure TForm1.Button1Click(Sender: TObject);
begin
stringGrid1.RowCount:=strtoint(Edit1.text);
end;

[Perchik71]

или без нее?

роликом мышки если фокус на компоненте

[МисУ]

Спасибо большое!

Еще один вопрос. Как вызвать компонент StringGrid с помощью Button ?

[kventin_zhuk]

Сообщение от МисУ

Еще один вопрос. Как вызвать компонент StringGrid с помощью Button ?

вызывать его нельзя, его можно поместить на форму и по нажатию на кнопку что-то с ним делать. Ну, или, в крайнем случае,по нажатию на кнопку динамически его создать.

Сообщение от МисУ

Еще один вопрос. Как вызвать компонент StringGrid с помощью Button ?

вызывать его нельзя, его можно поместить на форму и по нажатию на кнопку что-то с ним делать. Ну, или, в крайнем случае,по нажатию на кнопку динамически его создать.

[МисУ]

Как присвоить переменной, например "n", значения только 3-го столбца StringGrid, если брать к примеру стандартную таблицу StringGrid (5*5).

[Serge_Bliznykov]

Как присвоить переменной, например "n", значения только 3-го столбца StringGrid, если брать к примеру стандартную таблицу StringGrid (5*5).

Это смотря какого типа переменная n
в зависимости от этого и ответ будет.

p.s. А Вы понимаете, что 3-й столбец грида 5X5 содержит 5(ПЯТЬ) значений (и, в общем случае, это пять строковых значений) ?

[МисУ]

Переменная n должна содержать в себе числовые значения. Я представляю ее как динамический массив n[i] типа integer; Просто не знаю как правильно ей присвоить значения из SG.

К примеру простая формула: Y=∑(Хi+4);

x должен принимать одно значение содержащееся в ячейке, какого-либо столбца SG., пусть 3-го, начиная с 1-й ячейки и до последней строки данного столбца. Переменная х должна менять свое значение при каждой итерации цикла (знак суммы, сколько знаю, так можно реализовать), перебирая значения записанные в ячейках SG. до последней строки столбца.


P.s. Я не так давно начал осваивать Delphi, поэтому извиняйте за неточности. 2 недели уже штудирую учебник М.Фленова, но время остается все меньше).

[Serge_Bliznykov]

вообще строки/столбцы в StringGrid нумеруются с нуля.
и, если у вас нет заголовков, тогда перебрать все значения в 3-м столбце можно таким кодом:

for i:=0 to StringGrid1.RowCount-1 do begin
     n :=  StrToIntDef(StringGrid1.Cells[2, i ], 0 ); {преобразуем значение 3-го столбца, i-й строки в целое число  }
     ShowMessage('Отладка: Значение в '+IntToStr(i)+' строке = ' + IntToStr(n));  
end;

или, если n - динамический массив, тогда:

SetLength(n, RowCount);
for i:=0 to StringGrid1.RowCount-1 do 
     n[i] := StrToIntDef( StringGrid1.Cells[2, i ], 0 );

[МисУ]

если n - динамический массив, как я понимаю он содержит все значения столбца в n[i]? Как мне поочередно получить доступ к значениям. Я знаю что можно прописать так - n[2], и я получу значение находящееся в 3-й ячейке 2-го столбца (для простоты я убрал фиксированные зоны SG). Вот мой экспериментальный код, я просто пытаюсь понять логику динамических массивов, что не верно? он не работает

procedure TForm1.Button2Click(Sender: TObject);
var
s,i,RowCount:integer;
n: array of integer;
begin

SetLength(n, RowCount);
for i:=0 to StringGrid1.RowCount-1 do begin
n[i] := StrToIntDef( StringGrid1.Cells[2, i ], 0 );
end;
s:=0;
s:= s+n[1];
label1.Caption:=IntToStr(s);
end;


Конечно же мне нужно менять [i] не вручную, а в цикле.