Witam, z góry powiem, że moja wiedza na temat programowania jest znikoma :) mam problem dotyczący biblioteki DLL, a dokładniej mam program operujący na liście jednokierunkowej ( coś ala baza danych ). Całą listę jak i operacje ( dodawanie, usuwanie, sortowanie itp. ) mam w oddzielnym Unicie o nazwie LISTA i moim zadaniem jest stworzenie DLL i umieszczenie w nim kilku procedur operacji na tej liście albo na plikach ( zapis i odczyt listy do pliku ). Wszystkie operacje który posiadam działają prawidłowo. Umieściłem w DLL operacje zapisu do pliku.
Moja lista
unit lista;
interface
type
koncertList = ^koncert;
koncert = record
data : string[10];
wykonawca : string[32];
miejscowosc : string[32];
cena : string[32];
sprzedaneb : string[32];
koszt : string[32];
nastepny : koncertList;
end;
DLL
procedure zapisz(filename : string); stdcall;
var
plik : file of koncert;
elem : koncertList;
begin
elem := Root;
//sciezka := Form1.SaveDialog1.FileName;
AssignFile(plik, filename);
Rewrite(plik);
while elem <> nil do
begin
write(plik, elem^);
elem := elem.nastepny;
end;
CloseFile(plik);
end;
no i odwołanie się do DLL
procedure zapisz(filename : string); external 'dll.dll';
wszystko się kompiluje tylko przy aktywowaniu operacji zapisywanie wyskakuje błąd
I/O error 123
Bardzo bym prosił o pomoc :)