Hi zusammen
Das Problem ist gelöst - schuld war ein Flüchtigkeitsfehler. Die Änderung:
Delphi-Quellcode:
procedure TOpenFileFrame.TVFilesExplorerEdited(Sender: TObject; Node: TTreeNode;
var S: string);
{ Der Parameter S ist der neue Wert der Eigenschaft Text des Knotens }
var
NameRec: PNameRec; LBitMap: TBitmap;
LiconIndex, X :Integer; LIsdirectory, LIsDB: Boolean;
LCaption, LBmpFile, LRealName, LDeskIniPath: string;
begin
LIsdirectory := PNameRec(FPopUpNode.Data)^.IsDirectory;
LRealName := FPopUpPath + S; // IncludeTrailingPathDelimiter(S); // <===
LCaption := S;
if MainPage.OwnFolderList.IndexOf(LRealName) = -1 then
begin
MainPage.OwnFolderList.add(LRealName);
MainPage.OwnFolderList.SaveToFile(Mainpage.AppDataPath);
end
Dieser Eventhandler wird ausgeführt, nachdem die Beschriftung eines TreeNodes durch den User geändert wurde. Diese Beschriftung enthält in keinem Fall einen abschliessenden Backslash. IncludeTrailingPathDelimiter(S) wäre zwar korrekt, wenn ein Pfad erzeugt werden soll, nicht aber, wenn S mit TreeNode.Text verglichen werden soll.
Gruss
Delbor