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!

Delphi-Quellcode:

newfname := ChangeFileExt( 'Test.txt', '');

ergibt Test!
Hätte ein kurzer Test deinerseits auch ergeben!

[Neutral General]

Zitat:

Zitat von himitsu

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

Zitat:

Zitat von mkinzler

Das macht doch das ChangeFileExt()

Zitat:

Zitat von himitsu

Zitat:

Zitat von mkinzler

Das macht doch das ChangeFileExt()

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

Zitat:

Zitat von mkinzler

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

Reden die beiden Chinesisch? :wall:

[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]

Delphi-Quellcode:

Variable := ChangeFileExt( Variable, '');

[Uwe 111]

Hallo

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

Delphi-Quellcode:

  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;