Einzelnen Beitrag anzeigen

Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
924 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Icon wird nicht zugeordnet

  Alt 11. Dez 2019, 10:38
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
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch
  Mit Zitat antworten Zitat