Zajrzałem tu http://4programmers.net/article.php?id=11
bo myślałem że coś źle robie ale okazało się że jest dobrze przynajmniej się kompiluje jednak
type
Tfaq = packed record
tytul : string[125];
tresc : string[125];
end;
Tplik = file of Tfaq;
var plik : Tplik;
faq : Tfaq;
const FileName = 'dane/baza.dat';
begin
AssignFile(plik, FileName);
if not fileexists(filename) then
rewrite(plik) else
Reset(plik);
Seek(plik, FileSize(plik));
faq.tytul :=form2.edit1.text;
faq.tresc := form2.memo1.lines.text;
write(plik, faq);
closeFile(plik);
end;
prezy próbie otwarcia pliku lub jego stworzenia wywala błąd I/O error 183