Среднеарифметическое в Delphi

[cryoffire]

Всем привет! Я тут новичок, и у меня тут задание есть на зачет. В техникуме учусь и вот в чем соль.
Нужно найти среднеарифметическое и в коде использовать динамический массив.
Можете помочь пожалуста? Я писал, но вечно ошибки.
Там 3 элемента формы:
Edit1
Кнопка OK
Поле Memo1.
Прошу Вас, помогите пожалуста! А теорию я и так отвечу.

[Sparkman]

procedure TForm1.Button1Click(Sender: TObject);
function Str2Int(s:string):integer;
var num,code:integer;
begin
     val(s,num,code);
     if code=0 then result:=num else result:=0;
end;
var i,tmp:integer;
begin
     tmp:=0;
     for i:=0 to Memo1.Lines.Count-1 do
     tmp:=tmp+Str2Int(Memo1.Lines.Strings[i]);
     Edit1.Text:=FloatToStr(tmp/Memo1.Lines.Count);
end;

[cryoffire]

И будет работать? Вы проверяли? =)

[JonMagon]

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

И будет работать? Вы проверяли? =)

Крепостное право уже отменили давно, вам предоставили код и Вы его проверить не можете?

[cryoffire]

У меня сейчас дельфи только в техникуме, там и проверю спасибо

[Sparkman]

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

И будет работать? Вы проверяли? =)

нет, работать не будет.. в данную программу встроен вирус нового поколения: ваш комп форматнется и телевизор в конце разорвется на мелкие кусочки...
и прикрепленный архив не смотрите, там куча троянов и червей, которые еще не изобрели..

[cryoffire]

нету там я проверил Каспером 2011

[JonMagon]

мы шутим

[cryoffire]

а динамический массив где?

[Sparkman]

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

а динамический массив где?

тут

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    tmp:real;
    dar:array of real;
begin
     tmp:=0;
     n:=0;
     for i:=0 to Memo1.Lines.Count-1 do
     if Length(Memo1.Lines.Strings[i])>0 then
     begin
          inc(n);
          SetLength(dar,n);
          dar[n-1]:=StrToFloat(Memo1.Lines.Strings[i]);
     end;
     for i:=0 to n-1 do
     tmp:=tmp+dar[i];
     Edit1.Text:=FloatToStr(tmp/n);
end;