Skocz do zawartości
lasjak

Problem Z Funkcjami W Delphi (juz Nieaktualny)

Rekomendowane odpowiedzi

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 przez lasjak

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.



×
×
  • Dodaj nową pozycję...