[anubiss]

Здравствуйте. Подскажите пожалуйста????
Дана библиотека (.dll) в которой написана подпрограмма для решения задачи:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

function Count_Chet(A:Vektor):Integer;stdcal l; var i,k,Nmax, Nmin, max, min,p:integer; begin   max:=0; min:=100; p:=1; for I := 0 to High(A) do begin if max<A[i] then begin max:=a[i]; Nmax:=i; end; if min>A[i] then begin min:=a[i]; Nmin:=i; end; end; if Nmin>Nmax then begin for I := Nmax+1 to Nmin-1 do p:=p*a[i]; end else begin for I := Nmin+1 to Nmax-1 do p:=p*a[i]; end; Result:=p; end;

как мне прописать в программе что бы в label 8 выводило значение (Nmin)??

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Button2Click(Sender: TObject); var i,k:integer; A:Vektor; begin try Label4.Visible:=False; Label7.Visible:=True; Label8.Visible:=True; StringGrid1.ColCount:=2; StringGrid1.Cells[0,0]:=' i'; StringGrid1.Cells[1,0]:=' A[i]'; SetLength(A,n); for i := 1 to n do A[i-1]:=StrToInt(StringGrid1.Cells[1,i]); k:=Count_Chet(A); <b>Label8.Caption:=IntToStr(k);????????</b> A:=nil; except showmessage('Некорректные данные!'); end; end;

Админ: Пользуемся тегами для оформления кода!

[PhoeniX]

Самый простой способ - где-то перед функцией нажатия кнопки написать:

Код:

1	<b>function </b>Count_Chet(A:Vektor):Integer <b>stdcall</b>; <b>extern </b>'libname.dll';

[Demonuka]

Судя по коду dll-ки вобще никак. dll возвращает только Result, а в данном случае Result - это переменная p. Нужно изменить dll так, чтобы в Result уходила переменная Nmin. Если нужны и p и Nmin, то нужно в dll в Record описать соответствующую структуру и уже ее передавать как результат.