Двухмерные массивы - ошибка

[puporev]

Можно вставить куда-нибудь такую процедурку (это просто пример):

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
begin
n:=0;
for i:=0 to CheckListBox1.Items.Count - 1 do
 if CheckListBox1.Checked[i] then n:=n+1;
Edit1.Text:=floattostr(25/n);

end;

end.

[fudzy79]

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

Можно вставить куда-нибудь такую процедурку (это просто пример):

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
begin
n:=0;
for i:=0 to CheckListBox1.Items.Count - 1 do
 if CheckListBox1.Checked[i] then n:=n+1;
Edit1.Text:=floattostr(25/n);

end;

end.

Блин, работает Тут наверно сходняк гениев-программистов. СПАСИБО. такая процедура у мня была уже сделана, просто надо было добавить эту самую переменную "n".