Fehler: Inkompatible Typen

[Klaus01]

Bei der var deklaration hast Du "Datei als TStringList deklariert.
Benutzen tust Du es als "FileHandle".

Delphi-Quellcode:

AssignFile(datei,'termine.csv');     //Dateivariable verknüpfen 
reset(datei);                        //Datei öffnen 

//Test, ob Datum schon in der Datei steht 
vorhanden:=false; 
WHILE not EOF(datei) DO        //Wiederhole solange das Dateiende nicht erreicht 
  BEGIN 
   readln (datei,zeile)               //zeile wird aus der Datei gelesen 
   datum:=copy(zeile,1,10);         //ab 1. Zeichen bis 10. Zeichen --> dort steht das Datum 
   zeit:= copy(zeile,12,5);             //ab 12. Zeichen 5 Zeichen kopieren --> Uhrzeit 

   //Vergleich 
   IF (datum_neu = datum) AND (zeit_neu=zeit) THEN vorhanden:=true;

So würde es mit einer TStringlist ausschauen.

Delphi-Quellcode:

datei := TStringList.create;
datei.loadFromFile('termine.csv');
//Test, ob Datum schon in der Datei steht 
vorhanden:=false; 
for i:=0 to datei.count -1 do        //Wiederhole solange das Dateiende nicht erreicht 
  BEGIN 
   zeile := datei[i];               //zeile wird aus der Datei gelesen 
   datum:=copy(zeile,1,10);         //ab 1. Zeichen bis 10. Zeichen --> dort steht das Datum 
   zeit:= copy(zeile,12,5);             //ab 12. Zeichen 5 Zeichen kopieren --> Uhrzeit 

   //Vergleich 
   IF (datum_neu = datum) AND (zeit_neu=zeit) THEN vorhanden:=true;

Grüße
Klaus