Eine Sache fehlt jetzt noch, damit mein Vorhaben komplett gelingt.
Und zwar möchte ich nur den Dateinamen selbst haben, der ausgewählt wurde.
Habe das folgendermaßen probiert umzusetzen:
Delphi-Quellcode:
procedure TfrmMain.btnBildClick(Sender: TObject);
var i:Integer; DateiPfad,InitDir,DateiName:String;
begin
if OpenPictureDialog1.Execute() then
begin
DateiPfad:=OpenPictureDialog1.FileName;
InitDir:=OpenPictureDialog1.InitialDir;
ShowMessage(InitDir[1]);
For i:=1 to (length(DateiPfad)-length(InitDir))do
begin
DateiName[i]:=DateiPfad[length(DateiPfad)-length(InitDir)+1+i]; //Hier tritt der Fehler auf
end ;
end;
Was mache ich falsch?