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