type TBaza = packed record
name : shortstring;
ile : integer;
end;
var baza : array[1..20] of TBaza;
w dll'u jest procedura:
procedure LadujBaze(var baza:array of TBaza); stdcall;
w programie mam:
procedure LadujBaze(var baza:array of TBaza); stdcall external 'baza.dll' name 'LadujBaze';
przy wywlaniu w programie:
LadujBaze(baza);
ShowMessage(baza[1].name);
pokazuje sie puste okienko 8| ktoś wie czemu ?
ps. procedura ładująca w dll'u jest na 100% dobra