File Access: EAccessViolation

[Hirnsausen]

Scheint, zu viele meiner Hirnzellen sind abgestorben...

Wo liegt der Fehler? Ich bekomme eine EAccessViolation-Fehlermeldung beim Dateilesen.

Delphi-Quellcode:

 for Runde:=0 to FileListBoxReports.Items.Count-1 do
 begin
  NameOfFile:=ReportDirectory+FileListBoxReports.Items[Runde];
  if Pos('Crystalline Carbonide',NameOfFile)>0 then AssignFile(CrystallineCarbonideFile,NameOfFile);
  if Pos('Fermionic Condensates',NameOfFile)>0 then AssignFile(FermionicCondensatesFile,NameOfFile);
  if Pos('Fernite Carbide',NameOfFile)>0 then       AssignFile(FerniteCarbideFile,NameOfFile);
  if Pos('Ferrogel',NameOfFile)>0 then              AssignFile(FerrogelFile,NameOfFile);
  if Pos('Fullerides',NameOfFile)>0 then            AssignFile(FulleridesFile,NameOfFile);
  if Pos('Hypersynaptic Fibers',NameOfFile)>0 then  AssignFile(HypersynapticFibersFile,NameOfFile);
  if Pos('Nanotransistors',NameOfFile)>0 then       AssignFile(NanotransistorsFile,NameOfFile);
  if Pos('Phenolic Composites',NameOfFile)>0 then   AssignFile(PhenolicCompositesFile,NameOfFile);
  if Pos('Sylramic Fibers',NameOfFile)>0 then       AssignFile(SylramicFibersFile,NameOfFile);
  if Pos('Titanium Carbide',NameOfFile)>0 then      AssignFile(TitaniumCarbideFile,NameOfFile);
  if Pos('Tungsten Carbide',NameOfFile)>0 then      AssignFile(TungstenCarbideFile,NameOfFile);
// Reaction Basics
  if Pos('Caesarium Cadmide',NameOfFile)>0 then     AssignFile(CaesariumCadmideFile,NameOfFile);
  if Pos('Carbon Polymers',NameOfFile)>0 then       AssignFile(CarbonPolymersFile,NameOfFile);
  if Pos('Ceramic Powder',NameOfFile)>0 then        AssignFile(CeramicPowderFile,NameOfFile);
  if Pos('Crystallite Alloy',NameOfFile)>0 then     AssignFile(CrystalliteAlloyFile,NameOfFile);
  if Pos('Dysporite',NameOfFile)>0 then             AssignFile(DysporiteFile,NameOfFile);
  if Pos('Fernite Alloy',NameOfFile)>0 then         AssignFile(FerniteAlloyFile,NameOfFile);
  if Pos('Ferrofluid',NameOfFile)>0 then            AssignFile(FerrofluidFile,NameOfFile);
  if Pos('Fluxed Condensates',NameOfFile)>0 then    AssignFile(FluxedCondensatesFile,NameOfFile);
  if Pos('Hexite',NameOfFile)>0 then                AssignFile(HexiteFile,NameOfFile);
  if Pos('Hyperflurite',NameOfFile)>0 then          AssignFile(HyperfluriteFile,NameOfFile);
  if Pos('Neo Mercurite',NameOfFile)>0 then         AssignFile(NeoMercuriteFile,NameOfFile);
  if Pos('Platinum Technite',NameOfFile)>0 then     AssignFile(PlatinumTechniteFile,NameOfFile);
  if Pos('Prometium',NameOfFile)>0 then             AssignFile(PrometiumFile,NameOfFile);
  if Pos('Rolled Tungsten Alloy',NameOfFile)>0 then AssignFile(RolledTungstenAlloyFile,NameOfFile);
  if Pos('Silicon Diborite',NameOfFile)>0 then      AssignFile(SiliconDiboriteFile,NameOfFile);
  if Pos('Solerium',NameOfFile)>0 then              AssignFile(SoleriumFile,NameOfFile);
  if Pos('Sulfuric Acid',NameOfFile)>0 then         AssignFile(SulfuricAcidFile,NameOfFile);
  if Pos('Titanium Chromide',NameOfFile)>0 then     AssignFile(TitaniumChromideFile,NameOfFile);
  if Pos('Vanadium Hafnite',NameOfFile)>0 then      AssignFile(VanadiumHafniteFile,NameOfFile);
 end;

 WerteAlt[0]:='0';
 if (CheckBoxCrCaR.Checked=True and CheckBoxCrCaR.Enabled) then
 begin
  Reset(CrystallineCarbonideFile);
  Readln(CrystallineCarbonideFile,Zeile);
  repeat
   Readln(CrystallineCarbonideFile,Zeile);
   if Pos('True',Zeile)>0 then
   begin
    WerteNeu:=Explode(',',Zeile,0);
    if StrToFloat(WerteNeu[0])>StrToFloat(WerteAlt[0]) then
    begin
     if WerteNeu[11]='30000142' then WerteAlt:=WerteNeu;
    end;
   end;
  until EOF(CrystallineCarbonideFile);
  CloseFile(CrystallineCarbonideFile);
  VerkaufsPreis01:=StrToFloat(WerteAlt[0]);
       label1.Caption:=floattostr(VerkaufsPreis01);
 end;