E/A-Fehler 103

[Hansa]

Delphi-Quellcode:

if ZaehlerMesswerte < 2000 then 
begin 
  ZaehlerMesswerte := ZaehlerMesswerte+1; 
  DatumZeit := FormatDateTime('yyyymmddhhmmss', now); 
  assignFile(Datei, DateiPfad+DatumZeit+'.csv'); 
  rewrite(Datei); 
  writeln(Datei,'Strom,Spannung,CosPhi,Temperatur,Uhrzeit'); 
  writeln(Datei,Edit1.Text,',',Edit2.Text,',',Edit3.Text,',',Edit4.Text,',',Edit6.Text); 
end 
else 
begin 
  closeFile(Datei);   <-- Fehler ! bei > 2000 wird closefile ohne das rewrite von < 2000
                          nicht aufgerufen !
  assignFile(Datei, DateiPfad+DatumZeit+'.csv'); 
  rewrite(Datei); 
  ZaehlerMesswerte := 0; 
  writeln(Datei,'Strom,Spannung,CosPhi,Temperatur,Uhrzeit'); 
  writeln(Datei,Edit1.Text,',',Edit2.Text,',',Edit3.Text,',',Edit4.Text,',',Edit6.Text); 
end;

Reihenfolge immer :

Delphi-Quellcode:

begin
  rewrite (...
  Writeln ( ...
  CloseFile (...
end;