Fehler: Inkompatible Typen

**mkpre**

Ich habe den folgenden Text geschrieben, es soll ein Datum aus dem DateTimePicker, die Uhrzeit und ein Text aus je 1 Edit-Feld eingetragen werden und dabei ist zu prüfen, ob der Termin schon verplant ist.
Das Problem ist nun, dass er den Fehler: Inkompatible Typen in allen Zeilen anzeigt, wo es um die Datei geht.

Wer kann mir sagen wo der Fehler liegt und ihn berichtigen?

Danke schon mal

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

Datei : TStringList;

datum_neu : string;

zeit_neu : string;

event_neu:string;

zeile_neu:string;

datum: string;

zeit: string;

zeile:string;

vorhanden:string;

begin

datum_neu:= DateToStr(DateTimePicker1.Date);

zeit_neu:=EingabeZeit.Text;

event_neu:=EingabeEvent.Text;

zeile_neu:=datum_neu+';'+zeit_neu+';'+event_neu;

 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;

  END;

  CloseFile(datei);

  //Wenn noch nicht vorhanden, dann neu in die Datei schreiben, sonst Hinweis ausgeben

  IF vorhanden THEN ShowMessage('Der Termin ist schon belegt')

                     ELSE BEGIN 

                                   append(datei); //Datei öffnen zum anhängenden schreiben

                                   writeln(datei,zeile_neu); 

                                   closefile(datei);

                           END;

Fehler: Inkompatible Typen

Fehler: Inkompatible Typen

Forumregeln