Подпрограмма не определяет компонент

← →
jagr © (2005-07-06 20:09) [0]

procedure XXX;
var S1: Array[1..3,1..3] Of Extended;
begin
For i:=1 to 3 do
For j:=1 to 3 do begin
S1[i,j]:=StrToFloat(StringGrid1.Cells[j,i];
end; end;

- Неизвестная переменная StringGrid1.
Что я делаю не так?

← →
Просто Джо © (2005-07-06 20:13) [1]

> Что я делаю не так?

Всё.

1.
TForm1 = class(TForm) private procedure XXX; public { Public declarations } end; implementation procedure TForm1.XXX; begin // код end;

2.
procedure XXX (StringGrid: TStringGrid); begin // код end;

← →
Просто Джо © (2005-07-06 20:18) [2]

Комментарии к [1] Просто Джо

Вопрос: откуда твоей процедуре может стать известно, что на какой-то там форме находится компонент TStringGrid?
Следовательно, что бы идентификатор StringGrid1 имел какое-то значение внутри процедуры XXX, нужно:
1. Объявить процедуру XXX методом класса TForm1 (или какой там у тебя класс формы?).
2. Передать в эту процедуру ссылку на экземпляр конкретного StringGrid"а через параметр.

Блин, вечная спешка :-(
Разумеется 1,2 следует воспринимать как 1 или 2.

Подпрограмма не определяет компонент Найти похожие ветки