Forum: Win32/Win64 API (native code)
Delphi
by Delphi.Narium,
20. Sep 2018
Das stimmt natürlich, kommt halt auf die Aufgabenstellung an. Allgemeingültig ist meine Lösung sicherlich nicht.
Aber Dein Beispiel entspricht nicht der Aufgabenstellung. Es soll nur der letzte Teil aus dem Pfad entfernt werden. ;-)
Lieber eher sowas?function GetNewFileName(sFilename : String) : String;
begin
Result := ExtractFilePath(sFilename);
Result :=...
Forum: Win32/Win64 API (native code)
Delphi
by Delphi.Narium,
19. Sep 2018
ungefähr sowas?
sAlt := 'c:\temp\alt\irgendeine.mp3';
sWegdamit := '\alt\';
sNeu := AnsiReplaceText(sAlt,sWegDamit,'\');
if not SysUtils.RenameFile(sAlt,sNeu) then ShowMessage(Format('Fehler beim Umbenennen: %s',));
In kurz (ohne Fehlerbehandlung ...):
SysUtils.RenameFile(sDateiname,AnsiReplaceText(sDateiname,'\alt\','\'));