Problem Dateiagröße

[DeddyH]

Delphi-Quellcode:

const Datei = 'C:\Users\user\Documents\Bücher\111Buchtitel111.dat'; //gefällt mir zwar gar nicht, aber ich lass das mal so
begin
  AssignFile(Buecher, Datei);
  if (FileExists(Datei)) then
    begin
      reset(Buecher);
      while not Eof(Buecher) do
        begin
          read(Buecher, x);
          Form3.RadioGroup2.Items.Add(x);
        end;
    end
  else
    rewrite(Buecher);
  closefile(Buecher);
end;