Bild laden und wieder speichern

[Frischling]

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!