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
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;