Im TreeView Dateien ohne endung

[Uwe 111]

Hallo

Nein die Dateiname soll gleich bleiben. Nur die endung soll weg

[mkinzler]

Und genau dass macht diese Funktion!
newfname := ChangeFileExt( 'Test.txt', ''); ergibt Test!
Hätte ein kurzer Test deinerseits auch ergeben!

[Neutral General]

Zitat von himitsu:

ChangeFileExt mit '' als neue Endung wäre da passender.

Zitat von mkinzler:

Das macht doch das ChangeFileExt()

Zitat von himitsu:

Zitat von mkinzler:

Das macht doch das ChangeFileExt()

Jupp, ChangeFileExt mit '' würde die Dateiendung durch '' (zwei Apostroph mit nichts dazwischen) aka Nichts ersetzen.

Zitat von mkinzler:

Aber nur im String, an der Datei wird nichts geändert

Reden die beiden Chinesisch?

[Uwe 111]

Hallo

Also ich habe die TreeView aus ein Ordner befüllt und da sind mehre Dateien drin. Mit Text.txt ist nur ein Beispiel.

[mkinzler]

Dann ersetzt dort halt die Stringkonstanten die Variable

[Uwe 111]

Wenn ich es wüste würde ich ja nicht fragen

[mkinzler]

Variable := ChangeFileExt( Variable, '');

[Uwe 111]

Hallo

Ich habe es so gemacht da hat der Dateiname immer noch die .txt endung.

  Path := ChangeFileExt( 'Daten', '');

[mkinzler]

-'Daten' ist ja wieder eine Konstante
-der Dateiname steht in SearchRec.Name

[Uwe 111]

Danke ich habe es hinbekommen. Und zwar so

Delphi-Quellcode:

Begin
  New (Info);
  Info^.Path := False;
  Info^.Name := aPath + SearchRec.Name;
  SearchRec.Name  := ChangeFileExt( SearchRec.Name , ''); <-------
  aTree.Items.AddChildObject (aNode, SearchRec.Name, Info);
End;