lasjak Opublikowano 14 Grudnia 2005 Zgłoś Opublikowano 14 Grudnia 2005 (edytowane) Program sie sypie jak dochodzi do wywolania z biblioteki dll funkcji majacej zwrocic wartosc tablicy. Pojecia nie mam co moze byc w tym kodzie nie tak... Kod programu: type koncert=record //date: TDateTime; band: string[15]; place: string[8]; tprice: single; nost: integer; cost: single; prof: single; end;type TBober=array [1..50] of koncert;var Form1: TForm1; a: TBober; i: byte; plik: file of koncert;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);var bib: HModule;var prof: function (a:TBober):TBober;stdcall; sort: function (a:TBober):TBober;stdcall; x:string;begin bib:=loadlibrary('konc_bibdll'); if bib<>0 then begin prof:=getprocaddress(bib,'prof'); sort:=getprocaddress(bib,'sort'); prof(a); sort(a); Kod biblioteki type koncert=record band: string[15]; place: string[8]; tprice: single; nost: integer; cost:single; prof:single; end;type TBober=array [1..50] of koncert;function prof(a: TBober):TBober;stdcall;var i,j:byte;beginj:=1;i:=3;while j<=i do begin a[j].prof:=a[j].tprice*a[j].nost-a[j].cost; j:=j+1; end;end; Edytowane 14 Grudnia 2005 przez lasjak Cytuj Udostępnij tę odpowiedź Odnośnik do odpowiedzi Udostępnij na innych stronach Więcej opcji udostępniania...