ОК
Ольга Крюкова
Помоги срочно (delphi 7) маленькая задачка на 2 минуты
Нужно что бы выводило количество чисел больше 0
\Из стринггрида в едит
помоги, на контрольной сижу =Р
что не так ???
Function kol(var x:massiv):integer;
Var
i:integer;
kol:integer;
begin
kol:=0;
For i:=1 to n do
if x>0 then
kol:=kol+1;
Form1.Edit2.Text:=inttostr(kol);
result:=kol;
end;