Registriert seit: 10. Okt 2007
Ort: Brieskow-Finkenheerd
181 Beiträge
|
Re: Problem Dateiagröße
2. Dez 2008, 18:57
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
|