Технический форум - Нужно написать функцию

Плиз хелм ми гайс!:tehnari_ru_837:
Нужно написать функцию! проверяющую массив на геометрическую прогрессию!
Есть код который переделал с процедуры но он не пашет... Ругается на отсутствие мемо

Код:

Function Checkgp:boolean;

var

i:integer;

//q:Real;  q обьявите глобально;

rez:Boolean;

begin

  q:=strtofloat(memo1.lines[1])/strtofloat(memo1.lines[0]);

   result:=true;

      for i:=2 to memo1.lines.count-1 do

     if (strtofloat(memo1.lines[i])/strtofloat(memo1.lines[i-1])<>q)

   then

 begin

  result:=false; exit;

 end;

end;



вызов

Код:



if checkGP then

edt1.Text:=FloatToStr(q)

  else

   edt1.Text:='0';