Problem Dateiagröße

[DeddyH]

Wie sieht der geänderte Code denn jetzt aus?

[foerster7892]

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);
  reset(Buecher);
  while not Eof(Buecher) do
  begin
    read(Buecher, x);
    Form3.RadioGroup2.Items.Add(x);
  end;
  closefile(Buecher);
end;

halt nur das mit der anderen schleife eingesetzt

[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;