Poszukuje rozwiązania tego typu
library dll_tab;
uses
SysUtils,
Classes;
var
Tablica_stringow : array[1..10] of string;
{$R *.RES}
{$E DLL}
procedure Tablica( index : integer; var odpowiedz : string ); stdcall;
begin
odpowiedz:=Tablica_stringow[index];
end;
exports
Tablica;
// tu jest jakis problem
begin
Tablica_stringow[1]:=' To jest pierwszy ciág tablicy.';
Tablica_stringow[2]:=' To jest drogi ciág tablicy.';
Tablica_stringow[3]:=' To jest trzeci ciág tablicy.';
Tablica_stringow[4]:=' To jest czwarty ciág tablicy.';
Tablica_stringow[5]:=' To jest piaty ciág tablicy.';
Tablica_stringow[6]:=' To jest szusty ciág tablicy.';
Tablica_stringow[7]:=' To jest siodmy ciág tablicy.';
Tablica_stringow[8]:=' To jest osmy ciág tablicy.';
Tablica_stringow[9]:=' To jest dziewiaty ciág tablicy.';
Tablica_stringow[10]:=' To jest dziesiaty ciág tablicy.';
end.
tego typu rozwiązania poszukuję. Gdzie tu jest błąd bo nie można tej wersji skompilować