Der Fehler aus deinem Beispiel:
Unbekannter Bezeichner 'ChangeFilePath'!
Muss ich da noch eine bestimmte
Unit vereinbaren?
Und der Titel.Txt-Fehler wird vom Debugger an folgender Position angegeben:
Delphi-Quellcode:
pathPic:=path + 'Data\' + EditEingabe.Text + '.jpg';
if OpenPictureDialog1.Execute then
if CopyFile(PChar(OpenPictureDialog1.FileName), PChar(PathPic), false) then
Showmessage('Datei wurde kopiert');
Kategorie:=TStringList.Create;
Quali:=TStringList.Create;
Titel:=TStringList.Create;
Beschreibung:=TStringList.Create;
pathG:=path + 'Genre\' + ComboBoxKategorie.Text + '.txt';
pathQ:=path + 'Quali\' + ComboBoxQuali.Text + '.txt';
pathB:=path + 'Data\' + EditEingabe.Text + '.txt';
pathT:=path + 'Titel.Txt';
Titel.LoadFromFile(pathT);
Quali.LoadFromFile(pathQ); //Hier kommt die Fehlermeldung!
Kategorie.LoadFromFile(pathG);
Titel.Add(EditEingabe.Text);
Titel.SaveToFile(PathT);
Quali.Add(EditEingabe.Text);
Quali.SaveToFile(PathQ);
Kategorie.Add(EditEingabe.Text);
Kategorie.SaveToFile(PathG);
Beschreibung.AddStrings(MemoBeschreibung.Lines);
Beschreibung.SaveToFile(PathB);
Und das ergibt nunmal keinen Sinn, da der Fehler nur bei OpenPictureDialog1 erscheint!