Delphi-Quellcode:
AssignFile(Buecher, 'C:\Users\user\Documents\Bücher\111Buchtitel111.dat');
if (FileExists('C:\Users\user\Documents\Bücher\111Buchtitel111.dat')) then
reset(Buecher)
else
rewrite(Buecher);
Groesse:= FileSize(Buecher);//<---- is File of ShortString(dort sind die Namen aller eingetragenen Bücher gespeichert)
for AlleBuecher := 1 to Groesse do
begin
read(Buecher, x);
Form3.RadioGroup2.Items.Add(x);
end;
closefile(Buecher)
end;
allerdings hab ich mitbekommen das FileSize nciht die Anzahl der Elemente die auf der Datei gespeichert sind feststellt sondern einfach nur die größe an sich.
Wie könnte ich die Größe der Elemente in der datei feststellen???